home *** CD-ROM | disk | FTP | other *** search
/ IBM OEM Software Product … CD For PC Manufacturers / IBM OEM Software - Product Sampler CD for PC Manufacturers.iso / InternetIntranets / Notes / LOTUS017.DSK / CERTSRV.NTF (.txt) next >
Lotus Notes Database  |  1997-09-10  |  734KB  |  3,399 lines

  1. Server Certificate Admin
  2. #1StdNotes46SSLAdmin
  3. CN=Lotus Notes Template Development/O=Lotus Notes
  4. |a    ~me
  5. |a    ~me
  6. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes5
  7. $Modified
  8.     1S2S3S
  9. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
  10. $Flags
  11.     0SL1S4S5S3724
  12. $TITLE
  13. CN=Andrew Wharton/O=Iris###################################
  14. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesUtilss34Q1#######################################
  15. CN=James Cunningham/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
  16. CertAdminFullScreenCertAdminFullScreen
  17. ooooof
  18. CN=James Cunningham/O=IrisCN=Andrew Wharton/O=IrislsPtServer Certificate Admin
  19. #1StdNotes46SSLAdmin###########################################
  20. CertAdminFullScreen | CertAdminFullScreenG3
  21. CN=James Cunningham/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
  22. Key Ring Administration|Keyring Administration~
  23. CatagoriesEntryLabelTempIsRoot$Conflict$REF
  24. CertificateInformation
  25.     3S4S
  26. Catagories
  27. CatagoriesEntryLabelCertificate Entry LabelTempIsRootTrusted Root&
  28. 538Arial
  29. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################
  30. DlgConfirmMergeCertDlgConfirmMergeCertC
  31. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
  32. DlgConfirmCreateKeyringDlgConfirmCreateKeyringC
  33. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
  34. O=Lotus Notes
  35. O=Lotus Notes
  36. PURSAFO
  37. |.:#U
  38. O=Lotus Notes
  39. CN=Lotus Notes Template Development/O=Lotus Notes
  40. PURSAFO
  41. Fde!f^^
  42. $ACLDigest
  43. '++LotusScript Development Environment:2:5:(Options):0:74
  44. Option Public
  45. '++LotusScript Development Environment:2:5:(Forward):0:1
  46. Declare Function ViewCert (EncodedCertValue As Variant, PKCS As String) As Variant
  47. Declare Function FixFileName ( fn As String ) As String
  48. Declare Sub NukeIt( fn As String )
  49. Declare Function ReadFromFile (fn As String) As Variant
  50. Declare Sub WriteToFile (FnLinkList As Variant, fn As String)
  51. Declare Function isPKCS (testlist As Variant) As Integer' this function is a no op
  52. Declare Function GetString( Byval sid As Integer ) As String
  53. Declare Sub UpdateKeyProfile (doc As NotesDocument)
  54. '++LotusScript Development Environment:2:5:(Declarations):0:10
  55. Declare Function ProcessSecurityCmd Lib "_dmsecadm" (Byval cmdName As String,_
  56. Byval cmdArgs As String, Byval OutBuf As String, Byval szOutBuf As Integer) As Integer
  57. Const sid_CertReqCreate = 1
  58. Const sid_CertReqSubj = 2
  59. Const sid_CertReqCreateMail = 3
  60. Const sid_KeyPair = 4
  61. Const sid_CreateKeyCreate = 5
  62. Const sid_MergeCertIsRoot = 6
  63. Const sid_MergeCertIsNotRoot = 7
  64. Const sid_MergeCertConf = 8
  65. Const sid_MergeTrustConf = 9
  66. Const sid_InputPasswordPrompt = 10
  67. Const sid_InputPasswordTitle = 11
  68. Const sid_KeyRingViewName = 12
  69. Const sid_IsRootYes = 13
  70. Const sid_IsRootNo = 14
  71. Const sid_CertificateDeletedTag = 15
  72. Const sid_InputKeyFilePrompt = 16
  73. Const sid_InputKeyFileTitle = 17
  74. Const sid_KeyRingViewCatCA = 18
  75. Const sid_KeyRingViewSC = 19
  76. Const sid_NoLabelErr = 20
  77. Const sid_NoFileErr = 21
  78. Const sid_NoPasswordErr = 22
  79. Const sid_error = 23
  80. Const sid_InputNewPasswordPrompt = 24
  81. Const sid_PasswordChangeSucc = 25
  82. Const sid_cancel = 26
  83. '++LotusScript Development Environment:2:1:ViewCert:1:8
  84. Function ViewCert (EncodedCertValue As Variant, PKCS As String) As Variant
  85.      
  86.      
  87.      Dim CertValList As Variant
  88.      Dim buf As String * 500
  89.      
  90.      certfile$ = FixFileName("~vwcrt.tmp")
  91.      entryfile$ = FixFileName("~vwentr.tmp")
  92.      
  93.      Call WriteToFile( EncodedCertValue, certfile$ )
  94.      
  95.      CmdArgs = ""
  96.      CmdArgs = CmdArgs & "CertReqFile=" & certfile$ & ";"
  97.      CmdArgs = CmdArgs & "EntriesFile=" & entryfile$ & ";"
  98.      If PKCS = "1" Then CmdArgs = CmdArgs & "UsePKCS;"
  99.      
  100.      NukeIt( entryfile$ )
  101.      
  102.      rc%  = ProcessSecurityCmd("ViewCert",CmdArgs,Buf,500)
  103.      TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)
  104.      
  105.      NukeIt( certfile$ )
  106.      
  107.      If rc% = 0 Then 
  108.           
  109.           CertValList = ReadFromFile( entryfile$ )
  110.           
  111.           NukeIt( entryfile$ )
  112.           
  113.           ViewCert = CertValList
  114.           
  115.      Else
  116.           Messagebox TrimBuf$,48,"Error"
  117.      End If  
  118.      
  119. End Function
  120. '++LotusScript Development Environment:2:1:FixFileName:1:8
  121. Function FixFileName ( fn As String ) As String
  122.      If (fn Like "*[:/\]*") Then
  123.           FixFileName = fn
  124.      Else
  125.           Dim session As New NotesSession
  126.           If IsDefined("UNIX") Then  
  127.                FixFileName = session.GetEnvironmentString( "Directory", True ) & "/" & fn
  128.           Else
  129.                FixFileName = session.GetEnvironmentString( "Directory", True ) & "\" & fn
  130.           End If
  131.      End If
  132. End Function
  133. '++LotusScript Development Environment:2:2:NukeIt:1:8
  134. Sub NukeIt( fn As String )
  135.      On Error Resume Next
  136.      Kill fn$
  137.      On Error Goto 0
  138. End Sub
  139. '++LotusScript Development Environment:2:1:ReadFromFile:1:8
  140. Function ReadFromFile (fn As String) As Variant
  141.      
  142.      Dim FnLinklist List As String
  143.      
  144.      filenum% = Freefile()     
  145.      Open fn$ For Input As filenum%
  146.      i = 0
  147.      Do While Not Eof (filenum%)
  148.           Line Input #filenum%, FnLinklist(i)
  149.           i=i+1
  150.      Loop
  151.      Close filenum%
  152.      
  153.      AnotherHack = FnLinklist
  154.      
  155.      ReadFromFile = AnotherHack
  156.      
  157. End Function
  158. '++LotusScript Development Environment:2:2:WriteToFile:1:8
  159. Sub WriteToFile (FnLinkList As Variant, fn As String)
  160.      
  161.      ScriptBugHack = FnLinkList
  162.      
  163.      Call NukeIt( fn$ )
  164.      
  165.      filenum% = Freefile()
  166.      Open fn$ For Output As filenum%
  167.      Forall i In ScriptBugHack
  168.           Print #filenum%, i
  169.      End Forall
  170.      Close filenum%
  171.      
  172. End Sub
  173. '++LotusScript Development Environment:2:1:isPKCS:1:8
  174. Function isPKCS (testlist As Variant) As Integer' this function is a no op
  175.      hacklist = testlist
  176.      Forall k In hacklist
  177.           If Left$( k, 15) = "Originator-Cert" Then
  178.                isPKCS = 0
  179.                Exit Function
  180.           End If
  181.      End Forall
  182.      isPKCS = 1
  183. End Function
  184. '++LotusScript Development Environment:2:1:GetString:1:8
  185. Function GetString( Byval sid As Integer ) As String
  186.      'Here are the strings for international translation
  187.      Select Case sid
  188.      Case sid_CertReqCreate '1
  189.           GetString = "Certificate Request Created"
  190.      Case sid_CertReqSubj '2
  191.           GetString = "Certificate Request"
  192.      Case sid_CertReqCreateMail '3
  193.           GetString = "Certificate Request Created and Mailed"
  194.      Case sid_KeyPair '4
  195.           GetString = "KeyPair"
  196.      Case sid_CreateKeyCreate '5
  197.           GetString = "Key Ring Created"
  198.      Case sid_MergeCertIsRoot '6
  199.           GetString = "This Certificate is a Trusted Root"
  200.      Case sid_MergeCertIsNotRoot '7
  201.           GetString = "This Certificate is not a Trusted Root"
  202.      Case sid_MergeCertConf '8
  203.           GetString = "Merge Signed Certificate Confirmation"
  204.      Case sid_MergeTrustConf '9
  205.           GetString = "Merge Trusted Root Certificate Confirmation"
  206.      Case sid_InputPasswordPrompt '10
  207.           GetString = "Input password for "
  208.      Case sid_InputPasswordTitle '11
  209.           GetString = "Password Input"
  210.      Case sid_KeyRingViewName ''12
  211.           GetString = "Keyring Administration"
  212.      Case sid_IsRootYes '13
  213.           GetString = "yes"
  214.      Case sid_IsRootNo '14
  215.           GetString = "no"
  216.      Case sid_CertificateDeletedTag '15
  217.           GetString = "** Certificate Deleted **"
  218.      Case sid_InputKeyFilePrompt '16
  219.           GetString = "Enter the Key Ring File to Access"
  220.      Case sid_InputKeyFileTitle '17
  221.           GetString = "Key Ring File Access"
  222.      Case sid_KeyRingViewCatCA '18
  223.           GetString = "Certification Authorities"
  224.      Case sid_KeyRingViewSC '19
  225.           GetString = "Site Certificates"
  226.      Case sid_NoLabelErr '20
  227.           GetString = "No Entry Label for Selected Certificate"
  228.      Case sid_NoFileErr '21
  229.           GetString = "No Key File Selected"
  230.      Case sid_NoPasswordErr '22
  231.           GetString = "No Password Entered"
  232.      Case sid_error '23
  233.           GetString = "Error"  
  234.      Case sid_InputNewPasswordPrompt '24
  235.           GetString = "Input New Password for "
  236.      Case sid_PasswordChangeSucc '25
  237.           GetString = "Key Ring File Password Successfully Changed" 
  238.      Case sid_Cancel
  239.           GetString = "Operation Cancelled" '26
  240.      Case Else
  241.           GetString = "Unknown sid"
  242.      End Select
  243. End Function
  244. '++LotusScript Development Environment:2:2:UpdateKeyProfile:1:8
  245. Sub UpdateKeyProfile (doc As NotesDocument)
  246.      
  247.      Set db = doc.ParentDatabase
  248.      Dim prof As NotesDocument
  249.      Set prof = db.GetProfileDocument("CertAdminAppProfile")
  250.      
  251.      prof.KeyFileName = doc.KeyRingFileName(0)
  252.      
  253.      Call prof.Save(True, False)
  254.      
  255. End Sub
  256. O=Lotus Notes
  257. O=Lotus Notes
  258. PURSAFO
  259. |.:#U
  260. O=Lotus Notes
  261. CN=Lotus Notes Template Development/O=Lotus Notes
  262. PURSAFO
  263. Fde!f^^
  264. $ScriptLib
  265. $ScriptLib_O
  266. $TITLE
  267. $Flags
  268. $PublicAccess
  269. &Arial
  270. <>$$Web
  271.     8S11S13S14R21S24S
  272. 3cZ!cd
  273. dBqkl
  274. ZqfeM
  275. !!!)))111999BBBJJJRRRZZZccckkksss{{{
  276. sRRB!
  277. sJsc9
  278. BkZ)cR!
  279. s9sc1
  280. {9{k1
  281. s{sRskJ
  282. {RkcB
  283. {1{k)
  284. 9sc!B9
  285. {skBkc9
  286. {Bsk9
  287. J{s9kc)
  288. 7.RIP
  289.     When accessing the Server Certificate Administration application, make sure you are working at the server machine and are accessing the database locally. The Server Certificate Administration application must access files on the server hard drive.
  290.     The Certificate Authority application contains the following navigator options:
  291.     Create Key Rings & Certificates
  292.     Use this option to create a signed server certificate or create a self-certified certificate.
  293.     1. Create Key Ring File
  294.     Creates a password-protected file on the server's hard drive that holds the server certificate and trusted roots.
  295.     2. Create Certificate Request
  296.     Creates an unsigned certificate and several default trusted root certificates, and lets you submit this request to an internal or external CA for signing.
  297.     3. Install Trusted Root Certificate into Key Ring
  298.     Adds the CA's certificate as a trusted root to the server key ring file so the server trusts certificates signed by this CA.
  299.     4. Install Certificate into Key Ring
  300.     Adds the signed certificate from the CA to the server's key ring file.
  301.     5. Create Key Ring with Self-Certified Certificate
  302.     Creates a key ring and server certificate that is not signed by a CA, but can be used to test SSL on the server.
  303.     View & Edit Key Rings
  304.     View information in the server certificate, display certificates in another key ring file, and change the password for the key ring file.
  305.     View Certificate Request Log
  306.     View information about server certificate requests submitted to an internal or external CA.
  307. O=Lotus Notes
  308. O=Lotus Notes
  309. PURSAFO
  310. |.:#U
  311. O=Lotus Notes
  312. CN=Lotus Notes Template Development/O=Lotus Notes
  313. PURSAFO
  314. Fde!f^^
  315. $Info
  316. $Body
  317. HotspotRectangle9
  318. KeyringAdmin
  319.     1S4S
  320. HotspotRectangle10
  321. CertLog
  322.     1S4S
  323. HotspotRectangle12
  324. CertAdminCreateKeyRing
  325.     4S5S6S7S8S
  326. HotspotRectangle13
  327. CertAdminCreateCertRequest
  328.     4S5S6S7S8S
  329. HotspotRectangle14
  330. CertAdminMergeTrustedRootIntoKeyring
  331.     4S5S6S7S8S
  332. HotspotRectangle15
  333. CertAdminMergeCertIntoKeyring
  334.     4S5S6S7S8S
  335. HotspotRectangle16
  336. CertAdminCreateKeyRingWithSelfCert
  337.     4S5S6S7S8S
  338. HotspotRectangle8e
  339. CertAdminFullScreen
  340.     1S4S6S
  341. GraphicButton10P
  342.     skY4m
  343. |~|~|
  344. -;-8-8.b5
  345. ;713<13<1m
  346. 5.N85
  347. 47`]4><=7
  348. 86286N
  349. 58m;m;m
  350. ]4]>`
  351. 7>1LB;
  352. 82@8gD8N8D8
  353. NDgBLBDO<B8
  354. B;Nb;
  355. 8;8;b
  356. 1`=<>
  357. <]<L>L<L7<L
  358. gDSDgPN
  359. D    NDPBLPBLg
  360. 58m;m5
  361. OL><LBLO
  362. @    gDgUPDOgU
  363. 8N8N858b=b=4=
  364. bm;mb8b
  365. PLBgO
  366. gTSghgUg
  367. D@SDgSOgPgL
  368. bm87bL8b8B
  369. BCLCLP
  370. 9|^SUSU
  371. UShVSU
  372. USOIdUVP
  373. DgODND
  374. 8D8B`L
  375. ]m`=`m
  376. |trurtr|
  377. 8L8BLPgD
  378. TPUSgUgS@ptSE@S@EUSE
  379. UVSEUhUd
  380. @OBLO
  381. t9tut9t
  382. ;b;bDN7DBNgD
  383. gDOSOUg
  384. [CE^r
  385. poh?tr^g
  386. PhgOUS
  387. 1=b;=
  388. NSgUD
  389. PUSPUV
  390. 9KStGS^[XKUQr^io
  391. rcOpI
  392. TWUVEVUV
  393. OBOLB`
  394. rtpt9
  395. yZwlw
  396. _    9lE@SEUEW
  397. WPhESPgT
  398. |rtrt
  399. m5;b8
  400. UXWVi
  401. iVWVXWhUhSWXU
  402. rupt9
  403. ;m;NL8N
  404. cXRfd
  405. MEWr[UECI
  406. ViWXEWhWUWU
  407. PTPOPO
  408. rprtr
  409. rtr9t
  410. ut|~|
  411. uwlwl
  412. turtr
  413. ;    NbgDNgSD@
  414. hWX@E@
  415. pa_XEG
  416. EWXWEXWEWEhE
  417. ThSQPNTBOL
  418. tut9t
  419. {}u}u~
  420. SUXVU
  421. YWiXiWjXEX
  422. XjWXWEWjXi
  423. E    UEUESWhUS
  424. rtrpr
  425. |tutut
  426. {u}~}
  427. t|9u{|
  428. rtptpt9r9t
  429. t9trtr
  430. bgBPgUgUSES
  431. WEWEWXW
  432. WEiEX
  433. jEWXijEjXj
  434. T    UPOTLNL58
  435. t9t9t
  436. t9ut9|
  437. |tptrt
  438. rt9t9t
  439. ut9t9r9r
  440. trprp
  441. r    prpr|rpr
  442. 8LOUTVSiSUSXSWEWViWX
  443. MnjWjiWXWEjEW
  444. SWhWV
  445. SUPNBL8-
  446. |u9u9r
  447. |tptp
  448. t9t9t
  449. {9u9t
  450. rtr9tp
  451. rtr9r
  452. TWUPUgUg
  453. tu9{u
  454. trtrt
  455. |prtr
  456.     |ptprtr
  457. ThThV
  458. RiEiEij
  459. E    WEi
  460. Jhp_E
  461. TUPD@858;
  462. |tr9r9t
  463. t9u9u9u{
  464. |t9rtr
  465. 9tur|
  466. =mNbgTUTUVh
  467. WjXWX
  468. _9rUWjJr
  469. fcpio[n
  470. rt9t9r
  471. u9u9|
  472. |tu9t
  473. {u{u{u
  474. tu{u{
  475. |ut9t|
  476. eVran
  477. GnrGj_
  478. njpri[rif
  479. fXnRjX
  480. WEWEW
  481. 9t9t|
  482. rt9r9
  483. prptr
  484. rt9rt
  485. 9t9r|
  486. SUVWUji
  487. [r[Xjo
  488. _n9[R
  489. P8N8;
  490. prprprp
  491. r    trprprtrt
  492. rtptp|
  493. 9u9u9
  494. }u{u{~
  495. u    9ut
  496. |tr9tr
  497. rprtrp
  498. rt9tr
  499. prprprp
  500. DhUSVX
  501. _a_IEr\[_iEWXd
  502. MXprXn
  503. jrGjYrpiEdp
  504. 85-m-
  505. |rtrt
  506. pt9t9
  507. |tu9{
  508. u9tu|
  509. r9tr|
  510. b1NgNg
  511. _EVQEIr
  512. i[rea
  513. pX_K_
  514. QEiE_
  515. EUg@ND2N5-
  516. rt9tp
  517. {u{t}|
  518. 9trpr
  519. rt9rt9t9r
  520. tutur
  521. rprpr
  522. bN7gB
  523. E    XWiXipoiX
  524. ifpfjX9
  525. c!9WcpjiopWjnpap[i_9[KWiEWiG
  526. r\a9CX
  527. SP@N8N0
  528. rtr9t
  529. tu9ut
  530. t{u{u
  531. ~}{u{u~|~
  532. ut9t|
  533. rt9tr9|
  534. tu9t|
  535. b8b8gOPUSUWijiXEX
  536. iEXiXiXW
  537. RXifraW
  538. jXijXi
  539. XWXiEX
  540. rprpr
  541. |ptr9
  542. trtp9t
  543. |9t9ut|
  544. |}|}~t
  545. ptr9r
  546. |rprpr
  547. urptr
  548. gNUDP
  549. XWXorp
  550. XiXWj
  551. iEJrp
  552. DN8-8
  553. |}tu}
  554. }{u{u
  555. |u9t9|
  556. rt9t9rt9
  557. ;mL7BPgPU
  558. XnfWj_pCIci
  559. iTdRj
  560. WUSESU
  561. |rt9t9
  562. }u{u{
  563. u{u9|
  564. 9t9t|
  565.     ptrt
  566. prtrt
  567. tr9rtr9ru9t9|
  568. tu9tu|
  569. turu|
  570. gPhVhVU
  571. WiWfnW
  572. XEWXU
  573. @USE@gSgDL60-0
  574. prprprp
  575. prprprpr
  576. rtrpt
  577. |9t9u9
  578. tu9u{u{u{u{}|}|
  579. rprprt
  580. tr9tr
  581. |t9tu
  582. rtutu9t
  583. rtur|
  584. r    prprpr
  585. trprpr
  586. r    trprprpr
  587. r    trprprtr
  588. 8OLgPTP
  589. oWEQEX
  590. iXiXW
  591. WhUE@S
  592. r|rt|t
  593. |}|}~
  594.     rtr9r|r
  595. |rt|t|
  596. E,WQG
  597. rMX^ap9p
  598. r_EpI_r
  599. pC^_WR\
  600. D@SDBP0N
  601. ;7bNbNLPBgThTUTShUWUE
  602. E<WXnrXo
  603. dPp9WG
  604. QVRiMXM
  605. f[rEOQEXEiVX
  606. hVSUh
  607. =m=m78NLOLg
  608. EUEUEU
  609. _EWEWhrpna
  610. Er_EX
  611. @SDND6N282
  612. TPSOP
  613. S[rhW
  614. 9pXr^XWj_rQE
  615. \r_anKUQ[
  616. XTVhVTUhUPDgS
  617. [QhJh^rQXfVp9EUE
  618. Cif[rQa
  619. dUOQaMJ
  620. OUOg@SN6DNDN6
  621. bL1LbLBLBgBgSDS@g
  622. pE{IEI9
  623. trprt
  624. |~|~|
  625. DgDS@PgSUg
  626. PWPUhVhUSE
  627. hSWhUEWi
  628. SUhPhUgU
  629. m7b7bLb7bDN
  630. P    gUPUgUShg
  631. gEPESUS
  632. EPUEShPh
  633. TUSgShU
  634. OBPBPOB
  635. 8N@8N8NLNBgLPDBSDUgOgU
  636. SUPSUS
  637. UPUgUPTPUgOTDP
  638. P@gNLB
  639. N808-
  640. mb8b858Nb
  641. gPDNB
  642. SPSgSgS
  643. PUgUPOPOPgD
  644. SgODgDgDg68DL
  645. *L8L2N
  646. -8b=bLbL
  647. NDNOg
  648. BSPD@DPSPNDOgPSN6S@gP
  649. g8g8Dg6D@6N68L<
  650. 1<1<7L82
  651. 5=mbm
  652. N28NDN
  653. gO6DNg
  654. g6N6NDg5
  655. ;=m=1b
  656. 8B5N85D.D2
  657. N6D82;
  658. -m8;mN;
  659.     |}|}
  660. |    t|}|}|}|t
  661. |~|~|
  662. |~|~|
  663. |t|t}
  664. !!!)))999BBB{{{
  665. kkkBB
  666. cRsRJsRB
  667. 9Bs9B{BJ
  668. 11cJB{91kkc
  669. RJ{JBs1)Zsk
  670. ZRs)!B1!JR9s
  671. kRsZ)kJ)RB!JsJ{k9sZ!c
  672. Z9ZJ)J1
  673. 9c!cZ
  674. ZkBcZ1RZ
  675. JB!9k1Z
  676. JZ)Jc
  677. 9sJcc9Rc
  678. Rks1Rs!J{BZ
  679. cskBR
  680. BRk)9{1B
  681. lScreen"; "1")
  682. }}}}}}}}
  683. uuuuuuuu
  684. O=Lotus Notes
  685. O=Lotus Notes
  686. PURSAFO
  687. |.:#U
  688. O=Lotus Notes
  689. CN=Lotus Notes Template Development/O=Lotus Notes
  690. PURSAFO
  691. Fde!f^^
  692. $ViewMapDataset
  693. $ViewMapLayout
  694. $NavImagemap
  695. CertificateInformation
  696. Categori_zep
  697. _Edit Document
  698. Send Docu_ment
  699. _Forward
  700. _Move To Folder...
  701. _Remove From FolderB
  702. Select Key Ring to Display'++LotusScript Development Environment:2:5:(Options):0:74
  703. Use "Utils"
  704. '++LotusScript Development Environment:2:5:(Forward):0:1
  705. Declare Sub Click(Source As Button)
  706. '++LotusScript Development Environment:2:5:(Declarations):0:10
  707. Declare Function ProcessSecurityCmd Lib "_dmsecadm" (Byval cmdName As String,_
  708. Byval cmdArgs As String, Byval OutBuf As String, Byval szOutBuf As Integer) As Integer
  709. '++LotusScript Development Environment:2:2:BindEvents:1:129
  710. Private Sub BindEvents(Byval Objectname_ As String)
  711.      Static Source As BUTTON
  712.      Set Source = Bind(Objectname_)
  713.      On Event Click From Source Call Click
  714. End Sub
  715. '++LotusScript Development Environment:2:2:Click:1:12
  716. Sub Click(Source As Button)
  717.      
  718.      Dim linklist As Variant
  719.      Dim Buf As String * 500
  720.      Dim CmdArgs As String
  721.      
  722.      Dim workspace As New NotesUIWorkspace
  723.      Dim view As NotesView
  724.      Dim sess As New NotesSession
  725.      Dim db As NotesDatabase
  726.      Dim doc As NotesDocument
  727.      Dim lastdoc As NotesDocument
  728.      Dim subjItem As NotesItem
  729.      Dim IssItem As NotesItem
  730.      
  731.      filename$ = FixFileName("~entry.tmp")
  732.      
  733.      Call NukeIt(filename$)
  734.      
  735.      KeyRingFileName$ = Inputbox( GetString( sid_InputKeyFilePrompt ),GetString( sid_InputKeyFileTitle ) )
  736.      If KeyRingFileName$ = "" Then
  737.           Messagebox GetString( sid_NoFileErr )
  738.           Exit Sub
  739.      End If
  740.      Password$ = Inputbox$( GetString( sid_InputPasswordPrompt ) & KeyRingFileName$, GetString( sid_InputPasswordTitle ) )
  741.      If Password$ = "" Then
  742.           Messagebox GetString( sid_NoPasswordErr )
  743.           Exit Sub
  744.      End If
  745.      CmdArgs = ""
  746.      CmdArgs = CmdArgs & "Password=" & Password$ & ";"
  747.      CmdArgs = CmdArgs & "KeyFile=" & FixFileName( KeyRingFileName$ ) & ";"
  748.      CmdArgs = CmdArgs & "ShowPrivateKey;"
  749.      CmdArgs = CmdArgs & "EntriesFile=" & filename$
  750.      
  751.      rc% = ProcessSecurityCmd( "GetEntries", CmdArgs, Buf, 500 )
  752.      
  753.      TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)
  754.      
  755.      If rc% <> 0 Then
  756.           Messagebox TrimBuf$, 48, GetString( sid_error )
  757.           Exit Sub
  758.      End If
  759.      
  760.      Set db = sess.CurrentDatabase
  761.      Set view = db.GetView( GetString( sid_KeyRingViewName ) )
  762.      
  763.      Set doc = view.GetFirstDocument
  764.      If Not doc Is  Nothing Then
  765.           Set lastdoc = view.GetLastDocument
  766.           Do  While 1
  767.                Set doc = view.GetFirstDocument
  768.                If doc.universalid = lastdoc.universalid Then
  769.                     Call doc.Remove( True )
  770.                     Exit Do
  771.                End If
  772.                Call doc.remove( True )
  773.           Loop
  774.      End If
  775.      
  776.      linklist = ReadFromFile(filename$)
  777.      Call NukeIt(filename$)
  778.      
  779.      incr =0
  780.      Forall k In linklist
  781.           If Left$ (k, 11) = "EntryLabel:" Then
  782.                Set doc = New NotesDocument( db )
  783.                doc.EntryLabel = Right$(k, (Len(k)-12) )
  784.                doc.Form = "CertificateInformation"
  785.                doc.Catagories = GetString( sid_KeyRingViewCatCA )
  786.                
  787.                doc.TempKeyFileName = FixFileName(KeyRingFileName$)
  788.                doc.SubjOrgUnit = ""
  789.                doc.IssOrgUnit = ""
  790.                Set subjItem = doc.GetFirstItem( "SubjOrgUnit" )
  791.                Set issItem = doc.GetFirstItem( "IssOrgUnit" )
  792.           End If
  793.           
  794.           If Left$( k, 11)  = "SubjectOrg:" Then doc.SubjOrganization = Right$(k, (Len(k)-12) )
  795.           If Left$( k, 18)  = "SubjectCommonName:" Then doc.SubjCommonName = Right$(k, (Len(k)-19) )
  796.           If Left$( k, 15)  = "SubjectOrgUnit:" Then Call subjItem.AppendToTextList( Right$(k, (Len(k)-16) )  )
  797.           If Left$( k, 12)  = "SubjectCity:" Then doc.SubjCity = Right$(k, (Len(k)-13) )
  798.           If Left$( k, 13)  = "SubjectState:" Then doc.SubjState = Right$(k, (Len(k)-14) )
  799.           If Left$( k, 15)  = "SubjectZipCode:" Then doc.SubjZipCode = Right$(k, (Len(k)-16) )
  800.           If Left$( k, 15)  = "SubjectCountry:" Then doc.SubjCountry = Right$(k, (Len(k)-16) )
  801.           
  802.           If Left$( k, 10)  = "IssuerOrg:" Then doc.IssOrganization = Right$(k, (Len(k)-11) )
  803.           If Left$( k, 17)  = "IssuerCommonName:" Then doc.IssCommonName = Right$(k, (Len(k)-18) )
  804.           If Left$( k, 14)  = "IssuerOrgUnit:" Then Call issItem.AppendToTextList( Right$(k, (Len(k)-15) ) )
  805.           If Left$( k, 11)  = "IssuerCity:" Then doc.IssCity = Right$(k, (Len(k)-12) )
  806.           If Left$( k, 12)  = "IssuerState:" Then doc.IssState = Right$(k, (Len(k)-13) )
  807.           If Left$( k, 14)  = "IssuerZipCode:" Then doc.IssZipCode = Right$(k, (Len(k)-15) )
  808.           If Left$( k, 14)  = "IssuerCountry:" Then doc.IssCountry = Right$(k, (Len(k)-15) )
  809.           If Left$( k, 10)  = "StartDate:" Then doc.CertStartDate = Right$(k, (Len(k)-10) )
  810.           If Left$( k, 8)   = "EndDate:" Then doc.CertEndDate = Right$(k, (Len(k)-8) )
  811.           
  812.           If (Left$ (k, 12) = "TrustedRoot:") Then
  813.                On Error Resume Next
  814.                If linklist(Cint(Listtag(k)) + 1) =  "PrivateKey" Then doc.Catagories = GetString( sid_KeyRingViewSC )
  815.                If linklist(Cint(Listtag(k)) + 1) =  "PrivateKey" Then doc.HideSiteCert = "1"
  816.                If linklist(Cint(Listtag(k)) + 1) <> "PrivateKey" Then doc.HideSiteCert = "0"    
  817.                On Error Goto 0
  818.                doc.TempIsRoot = Right$(k, (Len(k)-13) )
  819.                Call doc.save (False, False)
  820.                incr = incr + 1
  821.           End If
  822.           
  823.      End Forall
  824.      
  825.      Call workspace.ViewRefresh
  826.      
  827. End Sub
  828. Change Key Ring Password'++LotusScript Development Environment:2:5:(Options):0:74
  829. Use "Utils"
  830. '++LotusScript Development Environment:2:5:(Forward):0:1
  831. Declare Sub Click(Source As Button)
  832. '++LotusScript Development Environment:2:5:(Declarations):0:10
  833. Declare Function ProcessSecurityCmd Lib "_dmsecadm" (Byval cmdName As String,_
  834. Byval cmdArgs As String, Byval OutBuf As String, Byval szOutBuf As Integer) As Integer
  835. '++LotusScript Development Environment:2:2:BindEvents:1:129
  836. Private Sub BindEvents(Byval Objectname_ As String)
  837.      Static Source As BUTTON
  838.      Set Source = Bind(Objectname_)
  839.      On Event Click From Source Call Click
  840. End Sub
  841. '++LotusScript Development Environment:2:2:Click:1:12
  842. Sub Click(Source As Button)
  843.      Dim Buf As String * 500
  844.      Dim CmdArgs As String
  845.      
  846.      KeyRingFileName$ = Inputbox( GetString( sid_InputKeyFilePrompt ), GetString( sid_InputKeyFileTitle ) )
  847.      If KeyRingFileName$ = "" Then
  848.           Messagebox GetString( sid_NoFileErr )
  849.           Exit Sub
  850.      End If
  851.      KeyRingFileName$ = FixFileName(KeyRingFileName$)
  852.      Password$ = Inputbox( GetString( sid_InputPasswordPrompt ) & KeyRingFileName$, GetString( sid_InputPasswordTitle ) )
  853.      If Password$ = "" Then
  854.           Messagebox GetString( sid_NoPasswordErr )
  855.           Exit Sub
  856.      End If
  857.      NewPassword$ = Inputbox(GetString( sid_InputNewPasswordPrompt ) & KeyRingFileName$, GetString( sid_InputPasswordTitle ) )
  858.      If NewPassword$ = "" Then
  859.           Messagebox GetString( sid_NoPasswordErr )
  860.           Exit Sub
  861.      End If
  862.      
  863.      CmdArgs = ""
  864.      CmdArgs = "KeyFile=" & KeyRingFileName$ & ";" & "Password=" & Password$ & ";" & "NewPassword=" & NewPassword$
  865.      
  866.      rc% = ProcessSecurityCmd( "ChangePassword", CmdArgs, Buf, 500 )
  867.      
  868.      TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)
  869.      
  870.      If rc% = 0 Then
  871.           Messagebox GetString( sid_PasswordChangeSucc )
  872.      Else
  873.           Messagebox TrimBuf$, 48, GetString( sid_error )
  874.           Exit Sub
  875.      End If
  876. End Sub
  877. Clear View'++LotusScript Development Environment:2:5:(Options):0:66
  878. '++LotusScript Development Environment:2:5:(Forward):0:1
  879. Declare Sub Click(Source As Button)
  880. '++LotusScript Development Environment:2:5:(Declarations):0:2
  881. '++LotusScript Development Environment:2:2:BindEvents:1:129
  882. Private Sub BindEvents(Byval Objectname_ As String)
  883.      Static Source As BUTTON
  884.      Set Source = Bind(Objectname_)
  885.      On Event Click From Source Call Click
  886. End Sub
  887. '++LotusScript Development Environment:2:2:Click:1:12
  888. Sub Click(Source As Button)
  889.      
  890.      Dim workspace As New NotesUIWorkspace
  891.      Dim view As NotesView
  892.      Dim sess As New NotesSession
  893.      Dim db As NotesDatabase
  894.      Dim doc As NotesDocument
  895.      Dim lastdoc As NotesDocument
  896.      
  897.      Set db = sess.CurrentDatabase
  898.      Set view = db.GetView( "Keyring Administration" )
  899.      
  900.      Set doc = view.GetFirstDocument
  901.      If Not doc Is  Nothing Then
  902.           Set lastdoc = view.GetLastDocument
  903.           Do  While 1
  904.                Set doc = view.GetFirstDocument
  905.                If doc.universalid = lastdoc.universalid Then
  906.                     Call doc.Remove( True )
  907.                     Exit Do
  908.                End If
  909.                Call doc.remove( True )
  910.           Loop
  911.      End If
  912.      Call workspace.ViewRefresh
  913. End Sub
  914. Main Menuc@
  915. CertAdminFullScreen
  916.     1S4S6S
  917.     0    0    
  918. ^     )l
  919. ~@    #JT
  920. O=Lotus Notes
  921. O=Lotus Notes
  922. PURSAFO
  923. |.:#U
  924. O=Lotus Notes
  925. CN=Lotus Notes Template Development/O=Lotus Notes
  926. PURSAFO
  927. Fde!f^^
  928. $TITLE
  929. $Index
  930. $Formula
  931. $FormulaClass
  932. $SelQuery
  933. $ViewFormat
  934. $Comment
  935. $ACTIONS
  936. $SCRIPTOBJ_6
  937. $SCRIPTOBJ_7
  938. $SCRIPTOBJ_8
  939. $ViewGlobalScript_O
  940. Certificate Merge Confirmation
  941.  DlgConfirmMergeCert
  942.     The certificate will be merged into your key ring.  Check the information below, then click Ok to install the certificate, or Cancel to stop the operation.
  943.     Key ring file name:
  944. KeyRingFileName
  945. KeyringFileName
  946.     Certificate Subject:
  947. StartDateField
  948. StartDateField
  949. EndDateField
  950. EndDateField
  951.     Certificate Issuer:
  952.     Certificate Information:
  953. SubListField
  954. SubListField
  955. IssListField
  956. IssListField
  957. O=Lotus Notes
  958. O=Lotus Notes
  959. PURSAFO
  960. |.:#U
  961. O=Lotus Notes
  962. CN=Lotus Notes Template Development/O=Lotus Notes
  963. PURSAFO
  964. Fde!f^^
  965. $TITLE
  966. $Info
  967. $WindowTitle
  968. $$Script_O
  969. $$ScriptName
  970. $Body
  971. Key Ring Created
  972.  DlgConfirmCreateKeyring
  973.     Your key ring has been created.
  974.     Key ring file name:
  975. KeyRingFileName
  976. KeyringFileName
  977.     The following Distinguished Name will be used for all certificates created for this key ring:
  978.     Common name:
  979. CommonName
  980. CommonName
  981. Organization
  982. Organization
  983.     Organization:
  984.     Organizational unit:
  985. OrganizationalUnit
  986. OrganizationalUnit
  987.     State:
  988.     City:
  989. StateProvince
  990. StateProvince
  991. Locality
  992. Locality
  993.     Next Step:
  994.     You can now add certificates to your key ring.  Choose "Create Certificate Request" from the main menu to generate a certificate request.
  995.     Country:
  996. Country
  997. Country
  998. O=Lotus Notes
  999. O=Lotus Notes
  1000. PURSAFO
  1001. |.:#U
  1002. O=Lotus Notes
  1003. CN=Lotus Notes Template Development/O=Lotus Notes
  1004. PURSAFO
  1005. Fde!f^^
  1006. $TITLE
  1007. $Info
  1008. $WindowTitle
  1009. $$ScriptName
  1010. $Body
  1011. DlgConfirmCreateCertReqByEmailDlgConfirmCreateCertReqByEmailC
  1012. CN=Scott Davidson/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################
  1013. DlgConfirmCreateSelfCertDlgConfirmCreateSelfCertC
  1014. CN=Scott Davidson/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
  1015. DlgConfirmCreateCertReqByClipboardDlgConfirmCreateCertReqByClipboardC
  1016. CN=Scott Davidson/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1017. ##########################################################
  1018. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
  1019. CertReqEmailCertReqEmailCD
  1020. CN=Scott Davidson/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
  1021. DlgConfirmMergeCertDoneDlgConfirmMergeCertDoneC
  1022. CN=Scott Davidson/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
  1023. DlgConfirmMergeTrustedRootDoneDlgConfirmMergeTrustedRootDoneC
  1024. CN=Scott Davidson/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
  1025. CertLog | CertlogG3
  1026. CN=James Cunningham/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################
  1027. KeyringAdminG3
  1028. CN=James Cunningham/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
  1029. DlgConfirmMergeTrustedRootC
  1030. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
  1031. DlgAlreadyHaveKey1CD
  1032. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################
  1033. CertAdminHeader | CertAdminHeader
  1034. CertAdminMergeTrustedRootIntoKeyringCertAdminMergeTrustedRootIntoKeyringC
  1035. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1036. ##########################################################
  1037. ##########################################################
  1038. ##########################################################
  1039. ##########################################################
  1040. Certificate Request Created
  1041.  DlgConfirmCreateCertReqByEmail
  1042.     Your certificate request has been created.
  1043.     The Distinguished Name you entered:
  1044.     Next Step:
  1045.     The Certification Authority will send you instructions for picking up the signed certificate.  The details depend on the CA, but a common approach is to e-mail you a URL where you can access the signed certificate and further instructions.  
  1046.     The certificate request has been sent to:
  1047. CAEmailAddress
  1048. CAEmailAddress
  1049. TempCertView
  1050. TempCertView
  1051. O=Lotus Notes
  1052. O=Lotus Notes
  1053. PURSAFO
  1054. |.:#U
  1055. O=Lotus Notes
  1056. CN=Lotus Notes Template Development/O=Lotus Notes
  1057. PURSAFO
  1058. Fde!f^^
  1059. $TITLE
  1060. $Info
  1061. $WindowTitle
  1062. $$Script_O
  1063. $$ScriptName
  1064. $Body
  1065. Keyring Created
  1066.  DlgConfirmCreateSelfCert
  1067.     Your key ring has been created with a self-certified certificate.
  1068.     Key ring file name:
  1069. KeyRingFileName
  1070. KeyringFileName
  1071.     Distinguished Name:
  1072.     Common name:
  1073. CommonName
  1074. CommonName
  1075. Organization
  1076. Organization
  1077.     Organization:
  1078.     Organizational unit:
  1079. OrganizationalUnit
  1080. OrganizationalUnit
  1081.     State:
  1082.     City:
  1083. StateProvince
  1084. StateProvince
  1085. Locality
  1086. Locality
  1087.     Next Step:
  1088.     You are now ready to enable SSL on your server.  See the Domino User's Guide for instructions on how to configure the Server Record in the Address Book to enable SSL.
  1089.     This certificate is valid from:
  1090. StartDate
  1091.     2S15SEndDate
  1092.     Country:
  1093. Country
  1094. Country
  1095. O=Lotus Notes
  1096. O=Lotus Notes
  1097. PURSAFO
  1098. |.:#U
  1099. O=Lotus Notes
  1100. CN=Lotus Notes Template Development/O=Lotus Notes
  1101. PURSAFO
  1102. Fde!f^^
  1103. $TITLE
  1104. $Info
  1105. $WindowTitle
  1106. $$Script_O
  1107. $$ScriptName
  1108. $Body
  1109. Certificate Request Created
  1110. 5Courier New
  1111.  DlgConfirmCreateCertReqByClipboard
  1112.     Your certificate request has been created.
  1113.     The Distinguished Name in this certificate request is:
  1114.     Next Step:
  1115.     After copying the PKCS-encoded certificate to the clipboard, choose "Request Server Certificate" from the main menu of the Certificate Authority Web site to submit the request..
  1116.     Below is your certificate request in PKCS format.  Copy the certificate to the clipboard by selecting all the text, including the BEGIN and END statements, and pressing CTRL+C.
  1117. PasteCert
  1118. PasteCert
  1119. TempCertView
  1120. TempCertView
  1121. O=Lotus Notes
  1122. O=Lotus Notes
  1123. PURSAFO
  1124. |.:#U
  1125. O=Lotus Notes
  1126. CN=Lotus Notes Template Development/O=Lotus Notes
  1127. PURSAFO
  1128. Fde!f^^
  1129. $TITLE
  1130. $Info
  1131. $WindowTitle
  1132. $$Script_O
  1133. $$ScriptName
  1134. $Body
  1135. &Arial
  1136.     The "Maximum Internet name & password access" setting in the Advanced panel of the Access Control
  1137.     dialog should be set to "No Access" so that Web users cannot access this database.  If this is not appropriately set,
  1138.     the following is displayed to users who access this application from a Web browser:
  1139. The Server Certificate Administration application must be accessed 
  1140. from a Notes client (Release 4.6 or later).
  1141. s_z_x
  1142. os_zPUi3
  1143. !!!)))111999BBBJJJRRRZZZccckkksss{{{
  1144. {ZRB!
  1145. {ccZB
  1146. s9sc1
  1147. {9{k1
  1148. {RkcB
  1149. sZR1cZ1
  1150. {1{k)
  1151. 9sc!91
  1152. {skBkc9
  1153. {J{sB
  1154. {Bsk9
  1155. {s1kc!
  1156. W33F/V0
  1157.     Welcome to the Server Certificate Administration application. Use this application if you're a server administrator and you want to secure your servers with SSL 3.0. You must use Domino and Notes Releases 4.6 to use this application.
  1158.     Before you begin, make sure you understand Internet and intranet security issues. For more information, see 
  1159.     Getting Started with Domino
  1160.      or online administration Help (HELPADMN.NSF).
  1161.     The Server Certificate Administration application (CERTSRV.NSF) lets you request server certificates from either an internal or external Certification Authority (CA) and manage your server certificates in a key ring file. You must access the application using a Notes workstation or administration client at the server machine.
  1162.     The Server Certificate Administration application lets you:
  1163.     -Create the server certificate and key ring file, which holds your server certificate.
  1164.     -Send a request to a CA to sign the server certificate.
  1165.     -View requests that you submitted to CAs.
  1166.     -Add a CA's certificate as a trusted root to the server certificate.
  1167.     -View information about certificates in the key ring file.
  1168.     -Control client access to the server by adding or removing trusted root certificates from the key ring file.
  1169.     -Create a self-certified certificate for testing purposes.
  1170.     For information on using the Server Certificate Administration application, see the Using document
  1171. Certificate Administration
  1172. O=Lotus Notes
  1173. O=Lotus Notes
  1174. PURSAFO
  1175. |.:#U
  1176. O=Lotus Notes
  1177. CN=Lotus Notes Template Development/O=Lotus Notes
  1178. PURSAFO
  1179. Fde!f^^
  1180. $Info
  1181. $Body
  1182.  CertReqEmail
  1183. SubmitMethod
  1184.     1S2S
  1185. $HideMailHeader
  1186.     0S0E
  1187. SendTo}
  1188.     0S0E
  1189. SendTo^
  1190. No names found to send mail.{
  1191.     1S6S7S8S9S11S16S
  1192. SendToList of primary people to send memo.
  1193.     From:
  1194.     Subject:
  1195. Certificate Request
  1196. Subject
  1197.     Site contact:  
  1198. RequestorName
  1199.     Email address:  
  1200. RequestorEmail
  1201.     Phone:  
  1202. RequestorPhone
  1203.     Server:  Domino 4.6
  1204.     Comments:  
  1205. RequestorComments
  1206. PKCSCertReq
  1207. O=Lotus Notes
  1208. O=Lotus Notes
  1209. PURSAFO
  1210. |.:#U
  1211. O=Lotus Notes
  1212. CN=Lotus Notes Template Development/O=Lotus Notes
  1213. PURSAFO
  1214. Fde!f^^
  1215. $TITLE
  1216. $Info
  1217. $$Script_O
  1218. $$ScriptName
  1219. $Body
  1220. Trusted Root Certificate Merged
  1221.  DlgConfirmMergeCertDone
  1222.     The certificate has been merged into your key ring.
  1223.     Next Step:
  1224.     You are now ready to enable SSL on your server.  See the Domino User's Guide for help in setting up the Server record for SSL.
  1225. O=Lotus Notes
  1226. O=Lotus Notes
  1227. PURSAFO
  1228. |.:#U
  1229. O=Lotus Notes
  1230. CN=Lotus Notes Template Development/O=Lotus Notes
  1231. PURSAFO
  1232. Fde!f^^
  1233. $TITLE
  1234. $Info
  1235. $WindowTitle
  1236. $$ScriptName
  1237. $Body
  1238. Trusted Root Certificate Merged
  1239.  DlgConfirmMergeTrustedRootDone
  1240.     The trusted root certificate has been merged into your key ring.
  1241.     Next Step:
  1242.     You can now install certificates signed by this CA into your key ring.  To obtain your certificate, go to the URL provided by your CA, or choose "Pick Up Certificate" from the Certificate Authority site and provide the Pickup ID of the signed certificate.
  1243. O=Lotus Notes
  1244. O=Lotus Notes
  1245. PURSAFO
  1246. |.:#U
  1247. O=Lotus Notes
  1248. CN=Lotus Notes Template Development/O=Lotus Notes
  1249. PURSAFO
  1250. Fde!f^^
  1251. /;RKt
  1252. ~a9,{gvh
  1253. $TITLE
  1254. $Info
  1255. $WindowTitle
  1256. $$ScriptName
  1257. $Body
  1258. Certificate Request Log
  1259. HotspotRectangle8
  1260. CertAdminFullScreen
  1261.     1S4S6S
  1262. HotspotRectangle9
  1263. KeyringAdmin
  1264.     1S4S
  1265. HotspotRectangle10
  1266. CertLog
  1267.     1S4S
  1268. GraphicButton8
  1269.     skY4m
  1270. 6 .62-2.
  1271. b;b-b73171=
  1272. *    ,*<,%A
  1273. 6N6L2.65b;-L
  1274. ><K>K]
  1275. ,L+>)
  1276. L02N07
  1277.  DB6B26
  1278. >%>K>)K><L17
  1279. mb=4`4`]4
  1280. *8,<(>
  1281. >4=878
  1282. 8LBLD
  1283. 8bB<CLK<>C>
  1284. KLCOC>C>LC<L;N7;L7<`<4`4
  1285. N    7DOLOCLOC
  1286. K<CO<OBLBg
  1287. 4`1`]>
  1288. OTCOCOTOCPOCP
  1289. TCgPLBgD
  1290. LO7LOL<B
  1291. 8&<&7<
  1292. L1<1<L<L
  1293. @SgOTP
  1294. I    TOTPOTOTO
  1295. BgSDOS
  1296. OBLBLBL>`>
  1297. 2#*B,B&8
  1298. 87LN<
  1299. 7LODO@
  1300. @S@S@^
  1301. ?9pPTVP
  1302. OUTOPg
  1303. PBLb8BNB7L7`
  1304. #B,SO*L*L
  1305. 8BN@O
  1306. @SPSh
  1307. VTUS@E@S@E
  1308. UVhVTh
  1309. PTPSg
  1310. ONLOLB
  1311. L    8L=b1=
  1312. P*S*P,gL8ODL@
  1313. S@SUSU
  1314. Sr[SEt\E
  1315. pdQ9?Vo9JVc\SEUSE
  1316. EPUSVSP
  1317. PgPUOgDO
  1318. 7ObBL`=b
  1319. TSPSOPSPBDPD
  1320. E    @E^
  1321. EH9Qc
  1322. GV9GU
  1323. hVUVEhUV
  1324. bLb]b=4
  1325. L,O,STS#E*STSPSP
  1326. USESU
  1327. SUESU
  1328. 9pX|9n_
  1329. EUhPhESUPTOPTPTOQ
  1330. L=1]4
  1331. 1<,CBOQOT
  1332. Wir\9^WEp9Er9
  1333. ViVWVX
  1334. UVPhXTUhPUTUTOPB
  1335. OBL>`<
  1336. &KL+B
  1337. WEVWh
  1338. E_rgEfiXrpniprG
  1339. i    WiEWVWUWU
  1340. UhUhTU
  1341. ><>`]
  1342. iWjf9G
  1343. n^ETG
  1344. GjicpCio9M
  1345. EhXWEiWUWEhE
  1346. ThUThSTOgPgOLOCL>4>4]
  1347. >,L,B,
  1348. U/ESE@ESUVX
  1349. iWiXiWYXEW
  1350. jijXjWXWEW
  1351. ESEWVESPTPh
  1352. <><>]>
  1353. OVPVUWUW
  1354. XijEjXj
  1355. VPOQLO<
  1356. &,B,hS
  1357. SMCXEWXiWX
  1358. iXWEQ_QET[pX_KWXEiX
  1359. jXijWjiWXWEjEW
  1360. SXhXV
  1361. T    PTO<C<>
  1362. QafEd
  1363. XdajijiX
  1364. jWijXi
  1365. jXjEXEi
  1366. iWEO^X
  1367. 8*O*PU*
  1368. CEXQX
  1369. ijEiEji
  1370. WEiji
  1371. XSEUTUP
  1372. L,SQhVWiXiXYi
  1373. [OXpor[p
  1374. rcCpf9
  1375.     pipcif[
  1376. rpERG
  1377. rfjXiE_
  1378. 9KECp
  1379. pojCp
  1380. gBPBL`1
  1381. ><O*S
  1382. XWi9\E\[E
  1383. nirpRi
  1384. RfrpeE_pho
  1385. nGpoW_rUI
  1386. E[rRf
  1387. njp\W\pC
  1388. IXfRG
  1389. E    hUhTBL><=
  1390. 4&%LP
  1391. WiWEYM
  1392. dXEiWO
  1393. dXiXRH
  1394. WSUPSTP<L7
  1395. 1>8*U*UXEUiX
  1396. GiEjWO
  1397. JiEip[id
  1398. ijr9_
  1399. Qr_EXp9X
  1400. USgOLg
  1401. niPKEp[SEOE
  1402. _Er9RTQ
  1403. Mj[piEHrQEC
  1404. i_rPECE[tUC
  1405. oM[rXc
  1406. g    LB18bm
  1407. &<BOP
  1408. hEUWE
  1409. IE9oWjX[
  1410. nfpCE
  1411. pcEC[
  1412. opfYf
  1413. GXjXWop
  1414. fpMU\
  1415. G\IEC[
  1416. oTGp\RXQp
  1417. UEWYjiXEXW
  1418. WXEWEjXE
  1419. iEXiXiXW
  1420. UPUgDNLb=bm
  1421. iWXEWE
  1422. iEWEW
  1423. 8,LKOCOTPQUVXi
  1424. gSBNL7m
  1425. &<,O<OCBOQTVihVhVhEh
  1426. iXiXi
  1427. WiEiXW
  1428. XEWXU
  1429. gO7b`
  1430. >L,COBCQOP
  1431. VhVWV
  1432. XiWEWEX
  1433. iXiXW
  1434. &<,O,
  1435. BCPQOPT
  1436. 9JWRG
  1437. pHpiXEiWEXEW
  1438. iXiWiXWi
  1439. WUXEiVX
  1440. TVgUh
  1441. 0'L*<C<
  1442. WUEWEWEWXWXi
  1443. c[pEVn
  1444. XEXEX
  1445. XiXhXEWE
  1446. iViVhTVTVThTUTgSgB@L
  1447. XVhiX
  1448. oGtXWG
  1449. XhUTQ
  1450. TQTVTPhPONDSN
  1451. bNb=m=
  1452. {pKdKO
  1453. hEXEhV
  1454. PBgDP78N8N8;
  1455. 1%)><1;bLbBbLONBgN
  1456. TPTUhWh
  1457. VhUXUE
  1458. tJSicp
  1459. UEUWVWThThPUSUSU
  1460. =3m7b
  1461. NODSgPgSPgh
  1462. VhUPU
  1463. SVEUPh
  1464. XiUXVPXQp[
  1465. g    POTPQOQTQ
  1466. Lb78NbN8DN8NDgND
  1467. SPUSTPUhPTPUT
  1468. b8NB8b8NLNDONPDBUDP
  1469. SPTOUPQUQTQPQ
  1470. PQdChT
  1471. SPOPO
  1472. O    L<L>L>L>7
  1473. `7bL1Lm
  1474. b85bNb
  1475. B    LBgLBDOLO
  1476. O    TCTCOQTOT
  1477. OPTOC
  1478. BO7<B<
  1479. <>`L`7L
  1480. 73bm1
  1481. L>L<B>
  1482. L<QOCL
  1483. QBCO<C
  1484. 4`4<3
  1485. 34b`4`4]>]<ALC
  1486. C<KLORLOBQ*BPO*O*
  1487. Q    L<LK<BCLB
  1488. `]4`>A]
  1489. ?K>KA
  1490. KA>CB<BC,O,LOL
  1491. O*B8'L<K>A
  1492. A>]>A>
  1493. >)AKA%><L,K*
  1494. OK><L&LB,D8
  1495. A>(s)
  1496. <>L,>,O,<L8L><>)
  1497. A(,>,
  1498. ,<*,<>)
  1499. >(A:x
  1500. )]%>%>&
  1501. >&<&<%(>
  1502. !!!)))999BBB{{{
  1503. kkkBB
  1504. cRsRJsRB
  1505. 9Bs9B{BJ
  1506. 11cJB{91kkc
  1507. RJ{JBs1)Zsk
  1508. ZRs)!B1!JR9s
  1509. kRsZ)kJ)RB!JsJ{k9sZ!c
  1510. Z9ZJ)J1
  1511. 9c!cZ
  1512. ZkBcZ1RZ
  1513. JB!9k1Z
  1514. JZ)Jc
  1515. 9sJcc9Rc
  1516. Rks1Rs!J{BZ
  1517. cskBR
  1518. BRk)9{1B
  1519. avigator]; "Cert
  1520. *.PCX
  1521. TIFF 5.
  1522. ator]; "Cert
  1523. ator]; "Cert
  1524. ator]; "Cert
  1525. ator]; "Cert
  1526. ator]; "Cert
  1527. O=Lotus Notes
  1528. O=Lotus Notes
  1529. PURSAFO
  1530. |.:#U
  1531. O=Lotus Notes
  1532. CN=Lotus Notes Template Development/O=Lotus Notes
  1533. PURSAFO
  1534. Fde!f^^
  1535. $ViewMapDataset
  1536. $ViewMapLayout
  1537. $NavImagemap
  1538. Keyring Administration
  1539. HotspotRectangle8
  1540. CertAdminFullScreen
  1541.     1S4S6S
  1542. HotspotRectangle9
  1543. KeyringAdmin
  1544.     1S4S
  1545. HotspotRectangle10
  1546. CertLog
  1547.     1S4S
  1548. GraphicButton10
  1549.     skY4m
  1550. 6.6.62
  1551. -05;0-0;
  1552. m=mb-2.860
  1553. m;m5-;5
  1554. 525.26
  1555. m85-;NL5L08
  1556. 5b;5N6
  1557. 8    @D@6B6D6D
  1558. m;m=b=
  1559. 8    ND8DN28N8
  1560. NDNPgP@P
  1561. D@6D6.D
  1562. N2B0<B082
  1563. L1bL7
  1564. DSDSD
  1565. S@Dg@D6
  1566. 2B6B2L<8173
  1567. BLb8N
  1568. TS@hSPSUSUS@
  1569. @SPDS6Dg
  1570. LO#OB8L81L;-5.
  1571. b7BOB
  1572. @Ng@g
  1573. gPUSP
  1574. SThShSUShUSUhUS
  1575. USUSg@S@D@SD
  1576. ;bDBL@
  1577. S@SUP
  1578. SUSVWS
  1579. @SETSh@Sg@D@g
  1580. LgNOLDL6
  1581. 8260.20.-
  1582. m    =8;=bNLNb
  1583. UWE@UXhWUW
  1584. EWS@E@SUhU
  1585. 6N6862.-
  1586. ;    DNbDNDgDO
  1587. DgSPSg
  1588. SEWSWE
  1589. SWSUSh@g
  1590. 2582.
  1591. ;8DODL
  1592. BSgSD@g
  1593. UPWTS
  1594. WEWEXUXE
  1595. 8DN582-.
  1596. hEUK^
  1597. XCfWXWE
  1598. P_OQnR
  1599. EUEShUSUSV
  1600. VhUSh
  1601. .602.262
  1602. ESESES?
  1603. WhWhU
  1604. NLbLDg@
  1605. PTEShSE
  1606. hEWhEWhUhTSTSD@NDND$N 6
  1607. m=8bO
  1608. Ei\rEIp
  1609. aE\_jf9_EC9Q
  1610. IGrVWXEiX_
  1611. dfpfGr
  1612. pWEXWEWEWEhWhU
  1613. hWUhU@h
  1614. ;OBLPDN
  1615. E    SEhVUESE@
  1616. |f[rin9rW_r
  1617. 9RQnXiXia
  1618. efr9M
  1619. TS@D@
  1620. bOLPgUgUSE
  1621. iGr_nroJ
  1622. Pp^EXjX^
  1623. KMKEa
  1624. UhXhSV
  1625. bLBThVSXSUSiSWE
  1626. iXE\rHp
  1627. XrGWG
  1628. oWEiEn
  1629. MW9piXj
  1630. hVSThD
  1631. EWXiXj
  1632. KiRQXG
  1633. MKMTO
  1634. ej[rY
  1635. i    YiXjWXWXW
  1636. hXhUhSUS@D 
  1637. 7LNTUThVijW
  1638. p9UEWcpWE_r
  1639. MpoifpaijijiCp
  1640. rIpCfpfWQ
  1641. jijiji
  1642. 8bDTPhTVhiVWiXW
  1643. S@U@S
  1644. m`=8NOSPT
  1645. i    jijEWEWji
  1646. WiXWjYjX
  1647. WEWEX
  1648. =LNgDSPXWU
  1649. EWXEXW
  1650. XjWiEjE
  1651. UEUSUS6
  1652. m=N8ghUSVX
  1653. IEXEXEiEWiE
  1654. WXiEi
  1655. b=BgNg
  1656. iT[rW
  1657. ijijiE
  1658. jiXiX
  1659. XEX@E
  1660. ;LbOL
  1661. aTpJiQpeiWE_
  1662. jnGX_
  1663. rfEor
  1664. HpcX_
  1665. P    SEWijiXEX
  1666. Cp[XJ
  1667. QXjW_
  1668. _nrej
  1669. oifjXj
  1670. ;BDU@P
  1671. oWXGr_nrao
  1672. XWjE_
  1673. _9rfj
  1674. i9rij
  1675. ;mB8BP
  1676. fEGr_
  1677. Gjp9Y
  1678. riEWi
  1679. m8;D7NBgPhV
  1680. iXiXM
  1681. KWQRE\r
  1682. iE9pi
  1683. _CIf[rEXi
  1684. XEWXEU
  1685. Pg@PDL6.
  1686. m;bBD8gNDPUP
  1687. XiWCpCifpninr
  1688. IpWEC9e
  1689. iHGXE_^EQ\[?
  1690. cOGpGf
  1691. @ESE@
  1692. b;N8NBgPOgU
  1693. WjWjXiYiXEjETWEc
  1694. @gNDSL
  1695. UhUhUhUE
  1696. WYEWX
  1697. WEWEiWX
  1698. VihVXhWS
  1699. DBL8L713;
  1700. bm;mN8
  1701. gDgSUhPUPU
  1702. EWUEXEW
  1703. XCdTX
  1704. WXWEWEhXViW
  1705. @S@D@BLB8L1713m
  1706. ;8N8D
  1707. g8B7<
  1708. WiWXE
  1709. UiXEUEUEXEU
  1710. 81b31=
  1711. hUhXhUXUEU
  1712. SiUiXhX
  1713. 0.0BL
  1714. PSTPSP
  1715. hXhESE
  1716. PXPUT@USES@S@TUhg
  1717. B6856581
  1718. L0O"OLOCO,hO,SPSP@Th
  1719. SUShSUS
  1720. hPhEUSU
  1721. @SgDgDPgNDOgL
  1722. 'L,B,O,STP,@DPDO
  1723. SUSESUSUEUSUS
  1724. @    D6N6N6N86
  1725. N5N-80-5
  1726. ,COPO,B
  1727. @UgUSPSTgUPOUOSODgDOD
  1728. OSgON
  1729. @D@N6DN@DN86D26
  1730. 8N08;8
  1731. 2'L+,B
  1732. BL#BL"OL
  1733. @S@S@
  1734. SDgPBNP
  1735. O6g8Dg2
  1736. 6585.5-8-8b;
  1737. Bf,O,O*'B"8L
  1738. NL!D"g@D6D6D@
  1739. 8DO25858NB5N8.8585
  1740. LB8N6D
  1741.  6D6@D
  1742. @6BN2N2N5252
  1743. -;8.b8.m
  1744.  D6 D6 D
  1745. 5.0.8582N;-08N
  1746. 26.8-
  1747. b;m5m
  1748. m-m;0m0
  1749. #    "#"'(
  1750. !!!)))999BBB{{{
  1751. kkkBB
  1752. cRsRJsRB
  1753. 9Bs9B{BJ
  1754. 11cJB{91kkc
  1755. RJ{JBs1)Zsk
  1756. ZRs)!B1!JR9s
  1757. kRsZ)kJ)RB!JsJ{k9sZ!c
  1758. Z9ZJ)J1
  1759. 9c!cZ
  1760. ZkBcZ1RZ
  1761. JB!9k1Z
  1762. JZ)Jc
  1763. 9sJcc9Rc
  1764. Rks1Rs!J{BZ
  1765. cskBR
  1766. BRk)9{1B
  1767. avigator]; "Cert
  1768. *.PCX
  1769. TIFF 5.
  1770. ator]; "Cert
  1771. BMP Image
  1772. ator]; "Cert
  1773. ]; "Cert
  1774. ows 6.0
  1775. F_IGI
  1776. O=Lotus Notes
  1777. O=Lotus Notes
  1778. PURSAFO
  1779. |.:#U
  1780. O=Lotus Notes
  1781. CN=Lotus Notes Template Development/O=Lotus Notes
  1782. PURSAFO
  1783. Fde!f^^
  1784. [W|lW
  1785. *:ERl
  1786. $ViewMapDataset
  1787. $ViewMapLayout
  1788. $NavImagemap
  1789. Trusted Root Certificate Merge Confirmation
  1790. DlgConfirmMergeTrustedRoot
  1791.     This certificate will be merged into your key ring as a Trusted Root.  Check the information below, then click Ok to install the certificate, or Cancel to stop the operation.
  1792.     Key ring file name:
  1793. KeyRingFileName
  1794. KeyringFileName
  1795.     Certificate Subject:
  1796. StartDateField
  1797. StartDateField
  1798. EndDateField
  1799. EndDateField
  1800.     Certificate Issuer:
  1801.     Certificate Information:
  1802. SubListField
  1803. SubListField
  1804. IssListField
  1805. IssListField
  1806. O=Lotus Notes
  1807. O=Lotus Notes
  1808. PURSAFO
  1809. |.:#U
  1810. O=Lotus Notes
  1811. CN=Lotus Notes Template Development/O=Lotus Notes
  1812. PURSAFO
  1813. Fde!f^^
  1814. $TITLE
  1815. $Info
  1816. $WindowTitle
  1817. $$ScriptName
  1818. $Body
  1819. Certificate Request Log|CertificateRequestLog
  1820. TimeStamp
  1821. T0S1V
  1822.     1S4S
  1823. SubmitMethod
  1824. Email
  1825. Clipboard
  1826.     1S3S4S6S8S
  1827. $9$7$Conflict$REF
  1828. CertReqLogEntry
  1829. CertReqLogEntry
  1830.     3S4S6S7S9S10S1
  1831. $9Time0
  1832. TimeStamp
  1833. T0S1V
  1834.     1S4S
  1835. $7Request Type^
  1836. SubmitMethod
  1837. Email
  1838. Clipboard
  1839.     1S3S4S6S8S
  1840. CN=Scott Davidson/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################
  1841. CertAdminMergeCertIntoKeyringCertAdminMergeCertIntoKeyringCD
  1842. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1843. ##########################################################
  1844. CertAdminCreateKeyringCertAdminCreateKeyringCD
  1845. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################
  1846. CertAdminCreateKeyringWithSelfCertCertAdminCreateKeyringWithSelfCertCD
  1847. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
  1848. CertAdminAppProfileCertAdminAppProfileC
  1849. CN=James Cunningham/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
  1850. CertificateInformationCertificateInformationCD
  1851. CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
  1852. CertAdminCreateCertRequestCertAdminCreateCertRequestCD
  1853. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1854. ##########################################################
  1855. CertReqLogEntryCertReqLogEntryCD
  1856. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
  1857. ##########################################################
  1858. ##########################################################
  1859. CertReqLogEntry|CertReqLogEntry
  1860. Categori_ze
  1861. _Edit Document
  1862. Send Docu_ment
  1863. _Forward
  1864. _Move To Folder...
  1865. _Remove From Foldert
  1866. Main Menu
  1867. CertAdminFullScreen
  1868.     1S4S6S
  1869. O=Lotus Notes
  1870. O=Lotus Notes
  1871. PURSAFO
  1872. |.:#U
  1873. O=Lotus Notes
  1874. CN=Lotus Notes Template Development/O=Lotus Notes
  1875. PURSAFO
  1876. Fde!f^^
  1877. $TITLE
  1878. $Index
  1879. $Formula
  1880. $FormulaClass
  1881. $SelQuery
  1882. $ViewFormat
  1883. $Comment
  1884. $ACTIONS
  1885. DlgAlreadyHaveKey
  1886. A key ring file for this server has already been created.
  1887. WARNING! 
  1888. Are you sure you want to proceed?
  1889. O=Lotus Notes
  1890. O=Lotus Notes
  1891. PURSAFO
  1892. |.:#U
  1893. O=Lotus Notes
  1894. CN=Lotus Notes Template Development/O=Lotus Notes
  1895. PURSAFO
  1896. Fde!f^^
  1897. $TITLE
  1898. $NoBackgroundOverride
  1899. $Info
  1900. $$ScriptName
  1901. $Body
  1902. Merge Trusted Root Certificate Into Keyring
  1903. 5Courier New
  1904.  CertAdminMergeTrustedRootIntoKeyring
  1905. SubListField
  1906. IssListField
  1907. StartDateField
  1908. EndDateField
  1909. TrustedRootField
  1910. SaveOptions
  1911. Install Trusted Root Certificate
  1912.     Use this form to install the Certificate Authority Trusted Root certificate into the server key ring.  If you haven't already done so, first obtain the Certificate Authority Trusted Root certificate by choosing "Accept This Authority In Your Server" from the main menu of Certificate Authority Web site.  
  1913.     Note:
  1914.     This step of installing the Certificate Authority Trusted Root certificate into your server key ring is required before you can install other certificates signed by this Certificate Authority into the key ring.
  1915.     Key Ring Information
  1916.     Quick Help
  1917.     Key Ring File Name
  1918. CertAdminAppProfile
  1919. KeyFileName
  1920. CertAdminAppProfile
  1921. KeyFileName
  1922. keyfile.kyr
  1923.     8S9S11S18S
  1924. KeyRingFileName
  1925. Key ring file name is required{
  1926.     3S4S
  1927. KeyringFileNameName for the file that stores the server keys and certificates. Include path if file is not in the data directory.
  1928.     Key Ring Password
  1929. PasswordPassword for the key ring file (at least 6 alphanumeric characters recommended)
  1930.     Specify the name and password of the key ring you created with "Create Key Ring".
  1931.     Certificate Information
  1932.     Certificate Label
  1933. CertificateName
  1934. Certificate Label is required
  1935.     3S4S
  1936. CertificateNameName to display when viewing the certificates in a key ring
  1937.     The identifier you'll see for this certificate when you choose "View & Edit Key Ring" from the main menu.
  1938.     Certificate Source
  1939. CertificateSource
  1940. File | 0Clipboard | 1
  1941.     The source of the certificate can be from a file or from the clipboard.
  1942. CertificateSource
  1943.     1S2S
  1944.     File Name
  1945. CertificateFileNameName of the file that contains the CA trusted root certificate, including the path (e.g. c:\temp\cacert.crt)
  1946.     The name of the file containing the CAs Trusted Root certificate.
  1947. CertificateSource
  1948.     1S2S
  1949.     Certificate from Clipboard
  1950. CertificateTextPress CTRL-V to paste the clipboard contents into the field, including the Begin and End lines
  1951.     Paste clipboard contents into this field.
  1952.     Note:
  1953.      The pasted certificate must include the "Begin Certificate" and "End Certificate" lines.
  1954. '++LotusScript Development Environment:2:5:(Options):0:74
  1955. Use "Utils"
  1956. '++LotusScript Development Environment:2:5:(Forward):0:1
  1957. Declare Sub Click(Source As Button) 'resourced for international
  1958. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1959. Declare Function ProcessSecurityCmd Lib "_dmsecadm" (Byval cmdName As String,_
  1960. Byval cmdArgs As String, Byval OutBuf As String, Byval szOutBuf As Integer) As Integer
  1961. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1962. Private Sub BindEvents(Byval Objectname_ As String)
  1963.      Static Source As BUTTON
  1964.      Set Source = Bind(Objectname_)
  1965.      On Event Click From Source Call Click
  1966. End Sub
  1967. '++LotusScript Development Environment:2:2:Click:1:12
  1968. Sub Click(Source As Button) 'resourced for international
  1969.      Dim wsp As New notesuiworkspace
  1970.      Dim uidoc As notesuidocument
  1971.      Set uidoc = wsp.CurrentDocument
  1972.      Dim doc As notesdocument
  1973.      Dim filename As String
  1974.      Dim Buf As String * 500
  1975.      Dim CmdArgs As String
  1976.      Dim item As NotesItem
  1977.      Dim item2 As NotesItem
  1978.      Dim IssList List As String
  1979.      Dim SubList List As String
  1980.      
  1981.      filename$ = FixFileName( "~certmp.tmp" )
  1982.      
  1983.      Call uidoc.Save
  1984.      Set doc = uidoc.Document
  1985.      
  1986.      KeyRingFileName$ = FixFileName( doc.KeyRingFileName(0) )
  1987.      Call uidoc.FieldSetText( "KeyRingFileName", KeyRingFileName$ )
  1988.      Password$ = doc.Password(0)
  1989.      CertSource$ = doc.CertificateSource( 0 )
  1990.      CertificateName$ = doc.CertificateName(0)
  1991.      
  1992.      Call uidoc.FieldClear( "Password" )
  1993.      Call uidoc.save
  1994.      
  1995.      CmdArgs = ""
  1996.      If KeyRingFileName$ > "" Then CmdArgs = CmdArgs & "KeyFile=" & KeyRingFileName$ & ";"
  1997.      If CertificateName$ > "" Then CmdArgs = CmdArgs & "EntryLabel=" & CertificateName$ & ";"
  1998.      If Password$ > "" Then CmdArgs = CmdArgs & "Password=" & Password$ & ";"
  1999.      
  2000.      If CertSource$ = "0" Then
  2001.           CertFileName$ = FixFileName( doc.CertificateFileName( 0 ) )
  2002.           CertText = ReadFromFile( CertFileName$ )
  2003.           If isPKCS( CertText ) = 1 Then
  2004.                ItIsPKCS$ = "1"
  2005.           Else
  2006.                ItIsPKCS$ = "0"
  2007.           End If
  2008.           DecodeCert = ViewCert( CertText, "0" )
  2009.           CmdArgs = CmdArgs & "CertReqFile=" & CertFileName$ & ";"
  2010.      Else
  2011.           CertText = doc.CertificateText
  2012.           If isPKCS( CertText ) = 1 Then
  2013.                ItIsPKCS$ = "1"
  2014.           Else
  2015.                ItIsPKCS$ = "0"
  2016.           End If
  2017.           DecodeCert = ViewCert( CertText, "0" )
  2018.           Call NukeIt( filename$ )
  2019.           Call WritetoFile( CertText, filename$ )
  2020.           CmdArgs = CmdArgs & "CertReqFile=" & filename$ & ";"
  2021.      End If
  2022.      
  2023.      If ItIsPKCS$ = "1" Then CmdArgs = CmdArgs & "UsePKCS;"
  2024.      
  2025.      SubCount = 1
  2026.      IssCount = 1
  2027.      Forall k In DecodeCert
  2028.           If Left$(k, 3) = "Sub" Then
  2029.                SubList(SubCount) = k
  2030.                SubCount = SubCount + 1
  2031.           Elseif Left$(k, 3) = "Iss" Then
  2032.                IssList(IssCount) = k
  2033.                IssCount = IssCount + 1
  2034.           Elseif Left$(k,3) = "Sta" Then
  2035.                StartDate$ = k
  2036.           Elseif Left$(k,3) = "End" Then
  2037.                EndDate$ = k
  2038.           Elseif k = "TrustedRoot: yes" Then
  2039.                TrustedRoot$ = GetString( sid_MergeCertIsRoot )
  2040.           Elseif k = "TrustedRoot: no" Then
  2041.                TrustedRoot$ = GetString( sid_MergeCertIsNotRoot )
  2042.           End If   
  2043.      End Forall
  2044.      Call uidoc.FieldClear( "SubListField" )
  2045.      Call uidoc.FieldClear( "IssListField" )
  2046.      Call uidoc.FieldClear( "StartDateField" )
  2047.      Call uidoc.FieldClear( "EndDateField" )
  2048.      Call uidoc.FieldClear( "TrustedRootField" )
  2049.      Call uidoc.save
  2050.      Set item = doc.GetFirstItem("SubListField")
  2051.      Forall i In SubList
  2052.           Call item.AppendToTextList(i)
  2053.      End Forall
  2054.      Set item2 = doc.GetFirstItem("IssListField")
  2055.      Forall j In IssList
  2056.           Call item2.AppendToTextList(j)
  2057.      End Forall
  2058.      Call uidoc.FieldSetText( "StartDateField", StartDate$ )
  2059.      Call uidoc.FieldSetText( "EndDatefield", EndDate$ )
  2060.      Call uidoc.FieldSetText( "TrustedRootField", TrustedRoot$ )
  2061.      
  2062.      flag% = wsp.DialogBox("DlgConfirmMergeTrustedRoot",True,True,False,False,False,False,GetString( sid_MergeTrustConf ))
  2063.      If flag% <> True Then
  2064.           Call uidoc.save
  2065.           Exit Sub
  2066.      End If
  2067.      
  2068.      rc%  = ProcessSecurityCmd("ReceiveRootCert",CmdArgs,Buf,500)
  2069.      TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)
  2070.      Call NukeIt( filename$ )
  2071.      If rc% = 0 Then 
  2072.           
  2073.           endflag% = wsp.DialogBox("DlgConfirmMergeTrustedRootDone",True,True,True,False,False,False,TrimBuf$)
  2074.           Call uidoc.save
  2075.           Call uidoc.close
  2076.      Else
  2077.           Messagebox TrimBuf$,48,GetString( sid_error )
  2078.      End If          
  2079.      
  2080. End Sub
  2081. P    P    x
  2082. ^8    )P    ^
  2083.     ^8    #
  2084. ^8    }h
  2085.     ^8    #
  2086. ^8    }h
  2087. New Button
  2088. Need a newer version of Notes to execute this button.
  2089.     0S0E
  2090.     Merge Trusted Root Certificate into Key Ring
  2091. O=Lotus Notes
  2092. O=Lotus Notes
  2093. PURSAFO
  2094. |.:#U
  2095. O=Lotus Notes
  2096. CN=Lotus Notes Template Development/O=Lotus Notes
  2097. PURSAFO
  2098. Fde!f^^
  2099. $SubForms
  2100. $TITLE
  2101. $Info
  2102. $WindowTitle
  2103. $$Script_O
  2104. $$ScriptName
  2105. $Body
  2106. Merge Certificate Into Key Ring
  2107. 5Courier New
  2108.  CertAdminMergeCertIntoKeyring
  2109. SubListField
  2110. IssListField
  2111. StartDateField
  2112. EndDateField
  2113. TrustedRootField
  2114. SaveOptions
  2115. Install Certificate into Key Ring
  2116.     The Certificate Authority will notify when your signed certificate is ready. The specifics depend on the Certificate Authority, but typically you will receive an e-mail specifying a URL where you can pick up the certificate. Once you have obtained the signed certificate, this form lets you install it into your key ring.  
  2117.     Note:
  2118.      Before installing this certificate, the certificate of the signing Certificate Authority must be installed in your key ring as a Trusted Root.  If you haven't already done so, choose "Accept This Authority In Your Server" from the main menu of the Certificate Authority Web site to obtain the CA certificate.
  2119.     Key Ring Information
  2120.     Quick Help
  2121.     Key Ring File Name
  2122. CertAdminAppProfile
  2123. KeyFileName
  2124. CertAdminAppProfile
  2125. KeyFileName
  2126. keyfile.kyr
  2127.     8S9S11S18S
  2128. KeyRingFileName
  2129. Key ring file name is required{
  2130.     3S4S
  2131. KeyringFileNameName for the file that stores the server keys and certificates. Include path if file is not in the data directory.
  2132.     Key Ring Password
  2133. PasswordPassword for the key ring file (at least 6 alphanumeric characters recommended)
  2134.     Specify the name and password of the key ring you created with "Create Key Ring".
  2135.     Certificate Information
  2136.     Certificate Source
  2137. CertificateSource
  2138. File | 0Clipboard | 1
  2139.     The source of the certificate can be from a file or from the clipboard.
  2140. CertificateSource
  2141.     1S2S
  2142.     File Name
  2143. CertificateFileNameName of the file that contains the CA trusted root certificate, including the path (e.g. c:\temp\cacert.crt)
  2144.     The name of the file that holds the signed certificate.
  2145. CertificateSource
  2146.     1S2S
  2147.     Certificate from Clipboard:
  2148. CertificateTextPress CTRL-V to paste the clipboard contents into the field, including the Begin and End lines
  2149.     Paste clipboard contents into this field.  (Note: The pasted certificate must include the "Begin Certificate" and "End Certificate" lines.)
  2150. '++LotusScript Development Environment:2:5:(Options):0:74
  2151. Use "Utils"
  2152. '++LotusScript Development Environment:2:5:(Forward):0:1
  2153. Declare Sub Click(Source As Button) 'resourced for international
  2154. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2155. Declare Function ProcessSecurityCmd Lib "_dmsecadm" (Byval cmdName As String,_
  2156. Byval cmdArgs As String, Byval OutBuf As String, Byval szOutBuf As Integer) As Integer
  2157. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2158. Private Sub BindEvents(Byval Objectname_ As String)
  2159.      Static Source As BUTTON
  2160.      Set Source = Bind(Objectname_)
  2161.      On Event Click From Source Call Click
  2162. End Sub
  2163. '++LotusScript Development Environment:2:2:Click:1:12
  2164. Sub Click(Source As Button) 'resourced for international
  2165.      Dim wsp As New notesuiworkspace
  2166.      Dim uidoc As notesuidocument
  2167.      Set uidoc = wsp.CurrentDocument
  2168.      Dim doc As notesdocument
  2169.      Dim filename As String
  2170.      Dim Buf As String * 500
  2171.      Dim CmdArgs As String
  2172.      Dim item As NotesItem
  2173.      Dim item2 As NotesItem
  2174.      Dim IssList List As String
  2175.      Dim SubList List As String
  2176.      
  2177.      filename$ = FixFileName( "~certmp.tmp" )
  2178.      
  2179.      Call uidoc.Save
  2180.      Set doc = uidoc.Document
  2181.      
  2182.      KeyRingFileName$ = FixFileName( doc.KeyRingFileName(0) )
  2183.      Call uidoc.FieldSetText( "KeyRingFileName", KeyRingFileName$ )
  2184.      Password$ = doc.Password(0)
  2185.      CertSource$ = doc.CertificateSource( 0 )
  2186.      
  2187.      Call uidoc.FieldClear( "Password" )
  2188.      Call uidoc.save
  2189.      
  2190.      CmdArgs = ""
  2191.      If KeyRingFileName$ > "" Then CmdArgs = CmdArgs & "KeyFile=" & KeyRingFileName$ & ";"
  2192.      If Password$ > "" Then CmdArgs = CmdArgs & "Password=" & Password$ & ";"
  2193.      CmdArgs = CmdArgs & "KeyName=" & GetString( sid_KeyPair ) & ";"
  2194.      
  2195.      If CertSource$ = "0" Then
  2196.           CertFileName$ = FixFileName( doc.CertificateFileName( 0 ) )
  2197.           CertText = ReadFromFile( CertFileName$ )
  2198.           If isPKCS( CertText ) = 1 Then
  2199.                ItIsPKCS$ = "1"
  2200.           Else
  2201.                ItIsPKCS$ = "0"
  2202.           End If
  2203.           DecodeCert = ViewCert( CertText, "0" )
  2204.           CmdArgs = CmdArgs & "CertReqFile=" & CertFileName$ & ";"
  2205.      Else
  2206.           CertText = doc.CertificateText
  2207.           If isPKCS( CertText ) = 1 Then
  2208.                ItIsPKCS$ = "1"
  2209.           Else
  2210.                ItIsPKCS$ = "0"
  2211.           End If
  2212.           DecodeCert = ViewCert( CertText, "0" )
  2213.           Call NukeIt( filename$ )
  2214.           Call WritetoFile( CertText, filename$ )
  2215.           CmdArgs = CmdArgs & "CertReqFile=" & filename$ & ";"
  2216.      End If
  2217.      
  2218.      If ItIsPKCS$ = "1" Then CmdArgs = CmdArgs & "UsePKCS;"
  2219.      
  2220.      SubCount = 1
  2221.      IssCount = 1
  2222.      Forall k In DecodeCert
  2223.           If Left$(k, 3) = "Sub" Then
  2224.                SubList(SubCount) = k
  2225.                SubCount = SubCount + 1
  2226.           Elseif Left$(k, 3) = "Iss" Then
  2227.                IssList(IssCount) = k
  2228.                IssCount = IssCount + 1
  2229.           Elseif Left$(k,3) = "Sta" Then
  2230.                StartDate$ = k
  2231.           Elseif Left$(k,3) = "End" Then
  2232.                EndDate$ = k
  2233.           Elseif k = "TrustedRoot: yes" Then
  2234.                TrustedRoot$ = GetString( sid_MergeCertIsRoot )
  2235.           Elseif k = "TrustedRoot: no" Then
  2236.                TrustedRoot$ = GetString( sid_MergeCertIsNotRoot )
  2237.           End If   
  2238.      End Forall
  2239.      Call uidoc.FieldClear( "SubListField" )
  2240.      Call uidoc.FieldClear( "IssListField" )
  2241.      Call uidoc.FieldClear( "StartDateField" )
  2242.      Call uidoc.FieldClear( "EndDateField" )
  2243.      Call uidoc.FieldClear( "TrustedRootField" )
  2244.      Call uidoc.save
  2245.      Set item = doc.GetFirstItem("SubListField")
  2246.      Forall i In SubList
  2247.           Call item.AppendToTextList(i)
  2248.      End Forall
  2249.      Set item2 = doc.GetFirstItem("IssListField")
  2250.      Forall j In IssList
  2251.           Call item2.AppendToTextList(j)
  2252.      End Forall
  2253.      Call uidoc.FieldSetText( "StartDateField", StartDate$ )
  2254.      Call uidoc.FieldSetText( "EndDatefield", EndDate$ )
  2255.      Call uidoc.FieldSetText( "TrustedRootField", TrustedRoot$ )
  2256.      
  2257.      flag% = wsp.DialogBox("DlgConfirmMergeCert",True,True,False,False,False,False,GetString( sid_MergeCertConf ))
  2258.      If flag% <> True Then
  2259.           Call uidoc.save
  2260.           Call NukeIt( filename$ )
  2261.           Exit Sub
  2262.      End If
  2263.      
  2264.      rc%  = ProcessSecurityCmd("ReceiveCert",CmdArgs,Buf,500)
  2265.      TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)
  2266.      Call NukeIt( filename$ )
  2267.      If rc% = 0 Then 
  2268.           endflag% = wsp.DialogBox("DlgConfirmMergeCertDone",True,True,True,False,False,False,TrimBuf$)
  2269.           Call uidoc.save
  2270.           Call uidoc.close
  2271.      Else
  2272.           Messagebox TrimBuf$,48,GetString( sid_error )
  2273.      End If          
  2274.      
  2275. End Sub
  2276.     ~p    #
  2277. New Button
  2278. Need a newer version of Notes to execute this button.
  2279.     0S0E
  2280.     Merge Certificate into Key Ring
  2281. O=Lotus Notes
  2282. O=Lotus Notes
  2283. PURSAFO
  2284. |.:#U
  2285. O=Lotus Notes
  2286. CN=Lotus Notes Template Development/O=Lotus Notes
  2287. PURSAFO
  2288. Fde!f^^
  2289. L}o)M
  2290. 4F0o0
  2291. $TITLE
  2292. $Info
  2293. $WindowTitle
  2294. $$Script_O
  2295. $$ScriptName
  2296. $Body
  2297. Create Key Ring
  2298.  CertAdminCreateKeyring
  2299. SaveOptions
  2300. Create Key Ring
  2301.     The first step in setting up SSL on a server is to create the key ring.  
  2302. When the key ring is created, a public/private keypair is automatically generated and stored in the key ring.
  2303.     Key Ring Information
  2304.     Quick Help
  2305.     Key Ring File Name:
  2306. CertAdminAppProfile
  2307. KeyFileName
  2308. CertAdminAppProfile
  2309. KeyFileName
  2310. keyfile.kyr
  2311.     8S9S11S18S
  2312. KeyRingFileName
  2313. Key ring file name is required{
  2314.     3S4S
  2315. KeyringFileNameName for the file that stores the server keys and certificates. Include path if file is not in the data directory.
  2316.     Key Ring Password:
  2317. PasswordPassword for the key ring file (at least 6 alphanumeric characters recommended)
  2318.     Specify the file name and password for the key ring. 
  2319.     Note: 
  2320.     You'll be referring to the key ring information you enter here in subsequent steps as you create and install certificates into the key ring.
  2321.     Key Size
  2322.     Key Size:
  2323. KeySizeThe size of the public/private key
  2324. 5121024
  2325.     Key Size is the size of the public/private key pair in bits.   The larger the key size, the greater the encryption strength. 
  2326.     Note:
  2327.       With exported versions of the Domino server, the key size is always set to 512 bits.
  2328.     Distinguished Name
  2329.     Common Name:
  2330. CommonName
  2331. Common Name is required
  2332.     3S4S
  2333. CommonNameFully qualified host name that appears in the Server document in the Public Address Book (e.g. www.lotus.com)
  2334.     Organization:
  2335. Organization
  2336. Organization is required{
  2337.     3S4S
  2338. OrganizationName of the organization, usually a company name (e.g. Acme)
  2339.     Organizational Unit:
  2340. OrganizationalUnit(Optional) Name of the division or department (e.g. Marketing)
  2341.      (optional)
  2342.     City or Locality:
  2343. Locality(Optional) City or town where the server administrator resides (e.g. Winchester)
  2344.      (optional)
  2345.     State or Province:
  2346. StateProvince
  2347. State or province value must be at least three characters
  2348.     6S7S
  2349. StateProvinceAt least 3 characters that represent the state or province (e.g. Massachusetts, not MA) 
  2350.      (no abbreviations)
  2351.     Country:
  2352. Country
  2353. Country code must be exactly two characters
  2354.     6S7S
  2355. CountryTwo-character representation for the country (e.g. US) 
  2356.      (two character country code)
  2357.     The Distinguished Name is the information about your site that will appear in any certificates you create. 
  2358.     Note: 
  2359.     Make sure the Common Name matches the URL of your site. Some browsers check the Common Name and the site URL, and do not allow a connection if they don't match.
  2360. '++LotusScript Development Environment:2:5:(Options):0:74
  2361. Use "Utils"
  2362. '++LotusScript Development Environment:2:5:(Forward):0:1
  2363. Declare Sub Click(Source As Button) 'resourced for international
  2364. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2365. Declare Function ProcessSecurityCmd Lib "_dmsecadm" (Byval cmdName As String,_
  2366. Byval cmdArgs As String, Byval OutBuf As String, Byval szOutBuf As Integer) As Integer
  2367. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2368. Private Sub BindEvents(Byval Objectname_ As String)
  2369.      Static Source As BUTTON
  2370.      Set Source = Bind(Objectname_)
  2371.      On Event Click From Source Call Click
  2372. End Sub
  2373. '++LotusScript Development Environment:2:2:Click:1:12
  2374. Sub Click(Source As Button) 'resourced for international
  2375.      Dim wsp As New notesuiworkspace
  2376.      Dim uidoc As notesuidocument
  2377.      Set uidoc = wsp.CurrentDocument
  2378.      Dim doc As notesdocument
  2379.      Set doc = uidoc.document
  2380.      
  2381.      Dim Buf As String * 500
  2382.      Dim CmdArgs As String
  2383.      Dim item As NotesItem
  2384.      
  2385.      Dim db As NotesDatabase
  2386.      Set db = doc.ParentDatabase
  2387.      Dim prof As NotesDocument
  2388.      Set prof = db.GetProfileDocument("CertAdminAppProfile")
  2389.      ProfKeyFileName$ = prof.KeyFileName(0)
  2390.      
  2391.      If ProfKeyFileName$ <> "" Then
  2392.           flag% = wsp.DialogBox( "DlgAlreadyHaveKey" , True , True, False, True, True, False, FixFileName(ProfKeyFileName$) )
  2393.           If flag% = False Then
  2394.                Messagebox GetString(sid_Cancel) 
  2395.                Call uidoc.Close
  2396.                Exit Sub
  2397.           End If
  2398.      End If
  2399.      
  2400.      filename$ = FixFileName( "~certmp.tmp" )
  2401.      
  2402.      Call uidoc.Save
  2403.      Set doc = uidoc.Document
  2404.      
  2405.      KeyRingFileName$ = FixFileName( doc.KeyRingFileName(0) )
  2406.      Call uidoc.FieldSetText( "KeyRingFileName", KeyRingFileName$ )
  2407.      Password$ = doc.Password(0)
  2408.      CommonName$ = doc.CommonName(0)
  2409.      KeySize$ = doc.KeySize(0)
  2410.      OrganizationalUnit$ = doc.OrganizationalUnit(0)
  2411.      Organization$ = doc.Organization(0)
  2412.      State$ = doc.StateProvince(0)
  2413.      Locality$ = doc.Locality(0)
  2414.      Country$ = doc.Country(0)
  2415.      
  2416.      Call uidoc.FieldClear( "Password" )
  2417.      Call uidoc.save
  2418.      
  2419.      CmdArgs = ""
  2420.      If Organization$ > "" Then CmdArgs = CmdArgs & "Org=" & Organization$ & ";"
  2421.      If OrganizationalUnit$ > "" Then CmdArgs = CmdArgs & "OrgUnit=" & OrganizationalUnit$ & ";"
  2422.      If CommonName$ > "" Then CmdArgs = CmdArgs & "CommonName=" & CommonName$ & ";"
  2423.      If Country$ > "" Then CmdArgs = CmdArgs & "Country=" & Country$ & ";"
  2424.      If State$ > "" Then CmdArgs = CmdArgs & "State=" & State$ & ";"
  2425.      If Locality$ > "" Then CmdArgs = CmdArgs & "City=" & Locality$ & ";"
  2426.      If KeyRingFileName$ > "" Then CmdArgs = CmdArgs & "KeyFile=" & KeyRingFileName$ & ";"
  2427.      If Password$ > "" Then CmdArgs = CmdArgs & "Password=" & Password$ & ";"
  2428.      CmdArgs = CmdArgs & "KeySize=" & KeySize$ & ";"
  2429.      CmdArgs = CmdArgs & "UsePKCS=1;"
  2430.      CmdArgs = CmdArgs & "KeyName=" & GetString( sid_KeyPair ) & ";"
  2431.      CmdArgs = CmdArgs & "CertReqFile=" & filename$ & ";"
  2432.      
  2433.      rc%  = ProcessSecurityCmd("CreateKeyFile",CmdArgs,Buf,500)
  2434.      
  2435.      TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)  ' strip nulls
  2436.      If rc% = 0 Then 
  2437.           Call NukeIt( filename$ )
  2438.           flag% = wsp.DialogBox("DlgConfirmCreateKeyring",True,True,True,False,False,False,GetString( sid_CreateKeyCreate ))
  2439.           Call UpdateKeyProfile( doc )
  2440.           Call uidoc.save
  2441.           Call uidoc.close
  2442.      Else
  2443.           Messagebox TrimBuf$,48,GetString( sid_error )
  2444.      End If          
  2445.      
  2446. End Sub
  2447. New Button
  2448. Need a newer version of Notes to execute this button.
  2449.     0S0E
  2450. Create Key Ring
  2451. O=Lotus Notes
  2452. O=Lotus Notes
  2453. PURSAFO
  2454. |.:#U
  2455. O=Lotus Notes
  2456. CN=Lotus Notes Template Development/O=Lotus Notes
  2457. PURSAFO
  2458. Fde!f^^
  2459. $TITLE
  2460. $Info
  2461. $WindowTitle
  2462. $$Script_O
  2463. $$ScriptName
  2464. $Body
  2465. Create Key Ring With Self-Certified Certificate
  2466.  CertAdminCreateKeyringWithSelfCert
  2467. SaveOptions
  2468. Create Key Ring with Self-Certified Certificate
  2469.     This form lets you easily create a key ring with a self-certified certificate for testing purposes. The resulting key ring is ready for use with SSL, but is not appropriate for a production internet or intranet site due to the certificate being signed by yourself instead of a Certificate Authority.
  2470.     Key Ring Information
  2471.     Quick Help
  2472.     Key Ring File Name
  2473. selfcert.kyr
  2474. KeyRingFileName
  2475. Key ring file name is required{
  2476.     3S4S
  2477. KeyringFileNameName for the file that stores the server keys and certificates. Include path if file is not in the data directory.
  2478.     Key Ring Password
  2479. PasswordPassword for the key ring file (at least 6 alphanumeric characters recommended)
  2480.     Specify the file name and password for the key ring.
  2481.     Note: 
  2482.     You'll be referring to the key ring information you enter here in subsequent steps as you create and install certificates into the key ring.
  2483.     Distinguished Name
  2484.     Common Name
  2485. CommonName
  2486. Common Name is required
  2487.     3S4S
  2488. CommonNameFully qualified host name that appears in the Server document in the Public Address Book (e.g. www.lotus.com)
  2489.     Organization
  2490. Organization
  2491. Organization is required{
  2492.     3S4S
  2493. OrganizationName of the organization, usually a company name (e.g. Acme)
  2494.     Organizational Unit
  2495. OrganizationalUnit(Optional) Name of the division or department (e.g. Marketing)
  2496.      (optional)
  2497.     City or Locality
  2498. Locality(Optional) City or town where the server administrator resides (e.g. Winchester)
  2499.      (optional)
  2500.     State or Province
  2501. StateProvince
  2502. State or province value must be at least three characters
  2503.     6S7S
  2504. StateProvinceAt least 3 characters that represent the state or province (e.g. Massachusetts, not MA) 
  2505.      (no abbreviations)
  2506.     Country
  2507. Country
  2508. Country code must be exactly two characters
  2509.     6S7S
  2510. CountryTwo-character representation for the country (e.g. US) 
  2511.      (two character country code)
  2512.     The Distinguished Name is the information about your site that will appear in any certificates you create.
  2513.     Note
  2514.     : Make sure the Common Name matches the URL of your site. Some browsers check the Common Name and the site URL, and do not allow a connection if they don't match.
  2515. '++LotusScript Development Environment:2:5:(Options):0:74
  2516. Use "Utils"
  2517. '++LotusScript Development Environment:2:5:(Forward):0:1
  2518. Declare Sub Click(Source As Button) 'resourced for international
  2519. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2520. Declare Function ProcessSecurityCmd Lib "_dmsecadm" (Byval cmdName As String,_
  2521. Byval cmdArgs As String, Byval OutBuf As String, Byval szOutBuf As Integer) As Integer
  2522. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2523. Private Sub BindEvents(Byval Objectname_ As String)
  2524.      Static Source As BUTTON
  2525.      Set Source = Bind(Objectname_)
  2526.      On Event Click From Source Call Click
  2527. End Sub
  2528. '++LotusScript Development Environment:2:2:Click:1:12
  2529. Sub Click(Source As Button) 'resourced for international
  2530.      Dim wsp As New notesuiworkspace
  2531.      Dim uidoc As notesuidocument
  2532.      Set uidoc = wsp.CurrentDocument
  2533.      Dim doc As notesdocument
  2534.      Dim Buf As String * 500
  2535.      Dim CmdArgs As String
  2536.      Dim item As NotesItem
  2537.      
  2538.      Call uidoc.Save
  2539.      Set doc = uidoc.Document
  2540.      
  2541.      ServerName$ = doc.CommonName(0)
  2542.      OrganizationalUnit$ = doc.OrganizationalUnit(0)
  2543.      Organization$ = doc.Organization(0)
  2544.      State$ = doc.StateProvince(0)
  2545.      Locality$ = doc.Locality(0)
  2546.      Country$ = doc.Country(0)
  2547.      KeyRingFileName$ = doc.KeyRingFileName(0)
  2548.      Password$ = doc.Password(0)
  2549.      
  2550.      Call uidoc.FieldClear( "Password" )
  2551.      Call uidoc.save
  2552.      
  2553.      CmdArgs = ""
  2554.      If Organization$ > "" Then CmdArgs = CmdArgs & "Org=" & Organization$ & ";"
  2555.      If OrganizationalUnit$ > "" Then CmdArgs = CmdArgs & "OrgUnit=" & OrganizationalUnit$ & ";"
  2556.      If ServerName$ > "" Then CmdArgs = CmdArgs & "CommonName=" & ServerName$ & ";"
  2557.      If Country$ > "" Then CmdArgs = CmdArgs & "Country=" & Country$ & ";"
  2558.      If State$ > "" Then CmdArgs = CmdArgs & "State=" & State$ & ";"
  2559.      If Locality$ > "" Then CmdArgs = CmdArgs & "City=" & Locality$ & ";"
  2560.      If KeyRingFileName$ > "" Then CmdArgs = CmdArgs & "KeyFile=" & FixFileName(KeyRingFileName$) & ";"
  2561.      CmdArgs = CmdArgs & "KeyName=" & GetString( sid_KeyPair ) & ";"
  2562.      If Password$ > "" Then CmdArgs = CmdArgs & "Password=" & Password$ & ";"
  2563.      CmdArgs = CmdArgs & "UsePKCS=1;"
  2564.      
  2565.      KeyRingFileName$ = FixFileName( doc.KeyRingFileName(0) )
  2566.      Call uidoc.FieldSetText( "KeyRingFileName", KeyRingFileName$ )
  2567.      
  2568.      rc%  = ProcessSecurityCmd("CreateSelfSigned",CmdArgs,Buf,500)
  2569.      TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)  ' strip nulls
  2570.      If rc% = 0 Then 
  2571.           flag% = wsp.DialogBox("DlgConfirmCreateSelfCert",True,True,True,False,False,False,TrimBuf$)
  2572.           Call uidoc.save
  2573.           Call uidoc.close
  2574.      Else
  2575.           Messagebox TrimBuf$,48,GetString( sid_error )
  2576.      End If          
  2577.      
  2578. End Sub
  2579. 0)$    ~x
  2580. New Button
  2581. Need a newer version of Notes to execute this button.
  2582.     0S0E
  2583.     Create Key Ring with Self-Certified Certificate
  2584. O=Lotus Notes
  2585. O=Lotus Notes
  2586. PURSAFO
  2587. |.:#U
  2588. O=Lotus Notes
  2589. CN=Lotus Notes Template Development/O=Lotus Notes
  2590. PURSAFO
  2591. Fde!f^^
  2592. $TITLE
  2593. $Info
  2594. $WindowTitle
  2595. $$Script_O
  2596. $$ScriptName
  2597. $Body
  2598. Domino Certificate Authority Application Profile
  2599.  CertAdminAppProfile
  2600. Server Certificate Administration Profile
  2601.     This form is used to store information used by the Server Certificate Administration application.  
  2602.     This is a system form that is not seen by users.  
  2603.     Stored Information
  2604.     Quick Help
  2605.     Key Ring File Name
  2606. KeyFileName
  2607.     The name of the key ring file is stored here when it's created.  This enables the application to display an alert message if the user tries to create more than one key ring.
  2608.      Close
  2609. Categori_ze
  2610. _Edit Document
  2611. Send Docu_ment
  2612. _Forward
  2613. _Move To Folder...
  2614. _Remove From Folder
  2615. O=Lotus Notes
  2616. O=Lotus Notes
  2617. PURSAFO
  2618. |.:#U
  2619. O=Lotus Notes
  2620. CN=Lotus Notes Template Development/O=Lotus Notes
  2621. PURSAFO
  2622. Fde!f^^
  2623. $TITLE
  2624. $Info
  2625. $WindowTitle
  2626. $$ScriptName
  2627. $Body
  2628. $ACTIONS
  2629. Certificate Information
  2630.  CertificateInformation
  2631. TempIsRoot
  2632.     3S4S6S
  2633. TempIsRoot
  2634. TempKeyFileName
  2635. Catagories
  2636. HideSiteCert
  2637. CertIsDel
  2638. CertIsDel
  2639.     1S2S
  2640. Certificate Information
  2641. CertIsDel
  2642.     1S2S
  2643.     This form displays the information contained in the certificate you have chosen to examine. 
  2644. You can use this form to mark or unmark the certificate as a trusted root, or to delete the certificate.
  2645.     You have deleted this certificate. It will no longer be displayed when you view the contents 
  2646. of this key ring.
  2647.     Key Ring & Certificate Identification
  2648.     Key Ring File Name
  2649. TempIsRoot
  2650. HideSiteCert
  2651. CertIsDel
  2652.     3S4S6S7S13S14S17S18S19S
  2653. CertIsDel
  2654.     3S4S5S
  2655. TempKeyFileName
  2656. CompKeyFileName
  2657.     Certificate Label
  2658. EntryLabel
  2659.     Certificate Subject & Issuer
  2660.     Certificate Subject
  2661.     Certificate Issuer
  2662.     Common Name
  2663. SubjCommonName
  2664. IssCommonName
  2665.     Organization
  2666. SubjOrganization
  2667. IssOrganization
  2668.     Organizational Unit
  2669. SubjOrgUnit
  2670. IssOrgUnit
  2671.     City
  2672. SubjCity
  2673. IssCity
  2674.     State
  2675. SubjState
  2676. IssState
  2677.     Country
  2678. SubjCountry
  2679. IssCountry
  2680.     Certificate Validity Dates
  2681.     Start Date
  2682. CertStartDate
  2683.     End Date
  2684. CertEndDate
  2685. HideSiteCert
  2686.     0S0E
  2687.     Trusted Root Status
  2688.     Quick Help
  2689.     Status
  2690. TempIsRoot
  2691. HideSiteCert
  2692. CertIsDel
  2693.     2S3S4S6S7S13S14S17S18S19S
  2694.     Certificate is a Trusted Root
  2695. TempIsRoot
  2696. HideSiteCert
  2697. CertIsDel
  2698.     3S4S6S7S13S14S17S18S19S
  2699.     Certificate is not a Trusted Root
  2700. HideSiteCert
  2701. CertIsDel
  2702.     0S6S7S10S11S12S
  2703. '++LotusScript Development Environment:2:5:(Options):0:74
  2704. Use "Utils"
  2705. '++LotusScript Development Environment:2:5:(Forward):0:1
  2706. Declare Function FixFileName( fn As String ) As String
  2707. Declare Sub Click(Source As Button)
  2708. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2709. Declare Function ProcessSecurityCmd Lib "_dmsecadm" (Byval cmdName As String,_
  2710. Byval cmdArgs As String, Byval OutBuf As String, Byval szOutBuf As Integer) As Integer
  2711. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2712. Private Sub BindEvents(Byval Objectname_ As String)
  2713.      Static Source As BUTTON
  2714.      Set Source = Bind(Objectname_)
  2715.      On Event Click From Source Call Click
  2716. End Sub
  2717. '++LotusScript Development Environment:2:1:FixFileName:1:8
  2718. Function FixFileName( fn As String ) As String
  2719.      If (fn Like "*[:/\]*") Then
  2720.           FixFileName = fn
  2721.      Else
  2722.           Dim session As New NotesSession
  2723.           If IsDefined("UNIX") Then  
  2724.                FixFileName = session.GetEnvironmentString( "Directory", True ) & "/" & fn
  2725.           Else
  2726.                FixFileName = session.GetEnvironmentString( "Directory", True ) & "\" & fn
  2727.           End If
  2728.      End If
  2729. End Function
  2730. '++LotusScript Development Environment:2:2:Click:1:12
  2731. Sub Click(Source As Button)
  2732.      
  2733.      Dim workspace As New NotesUIWorkspace
  2734.      Dim uidoc As NotesUIDocument
  2735.      Set uidoc = workspace.CurrentDocument
  2736.      Dim doc As NotesDocument
  2737.      Dim db As NotesDatabase
  2738.      Dim view As NotesView
  2739.      Dim sess As New NotesSession
  2740.      
  2741.      Dim Buf As String * 500
  2742.      Dim CmdArgs As String
  2743.      
  2744.      Set doc = uidoc.Document
  2745.      
  2746.      EntryLabel$ = doc.EntryLabel( 0 )
  2747.      KeyFileName$ = FixFileName( doc.TempKeyFileName( 0 ) )
  2748.      Password$ = Inputbox$( GetString( sid_InputPasswordPrompt ) & KeyFileName$, GetString( sid_InputPasswordTitle ) )
  2749.      
  2750.      CmdArgs = ""
  2751.      
  2752.      If EntryLabel$ > "" Then  
  2753.           CmdArgs = CmdArgs & "EntryLabel=" & EntryLabel$ & ";"
  2754.      Else
  2755.           Messagebox GetString( sid_NoLabelErr )
  2756.           Exit Sub
  2757.      End If
  2758.      
  2759.      If KeyFileName$ > "" Then 
  2760.           CmdArgs = CmdArgs & "KeyFile=" & KeyFileName$ & ";"
  2761.      Else
  2762.           Messagebox GetString( sid_NoFileErr )
  2763.           Exit Sub
  2764.      End If
  2765.      
  2766.      If Password$ > "" Then
  2767.           CmdArgs = CmdArgs & "Password=" & Password$
  2768.      Else
  2769.           Messagebox GetString( sid_NoPasswordErr )
  2770.           Exit Sub
  2771.      End If
  2772.      
  2773.      rc%  = ProcessSecurityCmd("DesignateRoot",CmdArgs,Buf,500)
  2774.      
  2775.      TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)
  2776.      If rc% = 0 Then 
  2777.           doc.TempIsRoot = GetString( sid_IsRootYes )
  2778.           Call doc.save(True, True)
  2779.           Set db = sess.CurrentDatabase
  2780.           Set view = db.GetView(GetString( sid_KeyRingViewName ) )
  2781.           Call workspace.viewrefresh
  2782.           Call uidoc.close
  2783.      Else
  2784.           Messagebox TrimBuf$,48,GetString( sid_error )
  2785.      End If
  2786. End Sub
  2787. P    P    l
  2788. ~@    #J
  2789. New Button
  2790. Need a newer version of Notes to execute this button.
  2791.     0S0E
  2792.     Trust This Certificate
  2793. TempIsRoot
  2794. HideSiteCert
  2795. CertIsDel
  2796.     2S3S4S6S7S13S14S17S18S19S
  2797. '++LotusScript Development Environment:2:5:(Options):0:74
  2798. Use "Utils"
  2799. '++LotusScript Development Environment:2:5:(Forward):0:1
  2800. Declare Function FixFileName( fn As String ) As String
  2801. Declare Sub Click(Source As Button)
  2802. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2803. Declare Function ProcessSecurityCmd Lib "_dmsecadm" (Byval cmdName As String,_
  2804. Byval cmdArgs As String, Byval OutBuf As String, Byval szOutBuf As Integer) As Integer
  2805. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2806. Private Sub BindEvents(Byval Objectname_ As String)
  2807.      Static Source As BUTTON
  2808.      Set Source = Bind(Objectname_)
  2809.      On Event Click From Source Call Click
  2810. End Sub
  2811. '++LotusScript Development Environment:2:1:FixFileName:1:8
  2812. Function FixFileName( fn As String ) As String
  2813.      If (fn Like "*[:/\]*") Then
  2814.           FixFileName = fn
  2815.      Else
  2816.           Dim session As New NotesSession
  2817.           If IsDefined("UNIX") Then  
  2818.                FixFileName = session.GetEnvironmentString( "Directory", True ) & "/" & fn
  2819.           Else
  2820.                FixFileName = session.GetEnvironmentString( "Directory", True ) & "\" & fn
  2821.           End If
  2822.      End If
  2823. End Function
  2824. '++LotusScript Development Environment:2:2:Click:1:12
  2825. Sub Click(Source As Button)
  2826.      Dim workspace As New NotesUIWorkspace
  2827.      Dim uidoc As NotesUIDocument
  2828.      Set uidoc = workspace.CurrentDocument
  2829.      Dim doc As NotesDocument
  2830.      Dim db As NotesDatabase
  2831.      Dim view As NotesView
  2832.      Dim sess As New NotesSession
  2833.      
  2834.      Dim Buf As String * 500
  2835.      Dim CmdArgs As String
  2836.      
  2837.      Set doc = uidoc.Document
  2838.      
  2839.      EntryLabel$ = doc.EntryLabel( 0 )
  2840.      KeyFileName$ = FixFileName( doc.TempKeyFileName( 0 ) )
  2841.      Password$ = Inputbox$( GetString( sid_InputPasswordPrompt ) & KeyFileName$, GetString( sid_InputPasswordTitle ) )
  2842.      
  2843.      CmdArgs = ""
  2844.      
  2845.      If EntryLabel$ > "" Then  
  2846.           CmdArgs = CmdArgs & "EntryLabel=" & EntryLabel$ & ";"
  2847.      Else
  2848.           Messagebox GetString( sid_NoLabelErr )
  2849.           Exit Sub
  2850.      End If
  2851.      
  2852.      If KeyFileName$ > "" Then 
  2853.           CmdArgs = CmdArgs & "KeyFile=" & KeyFileName$ & ";"
  2854.      Else
  2855.           Messagebox GetString( sid_NoFileErr )
  2856.           Exit Sub
  2857.      End If
  2858.      
  2859.      If Password$ > "" Then
  2860.           CmdArgs = CmdArgs & "Password=" & Password$ & ";"
  2861.      Else
  2862.           Messagebox GetString( sid_NoPasswordErr )
  2863.           Exit Sub
  2864.      End If
  2865.      
  2866.      CmdArgs = CmdArgs & "NoTrust;"
  2867.      
  2868.      rc%  = ProcessSecurityCmd("DesignateRoot",CmdArgs,Buf,500)
  2869.      
  2870.      TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)
  2871.      If rc% = 0 Then 
  2872.           doc.TempIsRoot = GetString( sid_IsRootNo )
  2873.           Call doc.save(True, True)
  2874.           Set db = sess.CurrentDatabase
  2875.           Set view = db.GetView(GetString( sid_KeyRingViewName ) )
  2876.           Call workspace.viewrefresh
  2877.           Call uidoc.close
  2878.      Else
  2879.           Messagebox TrimBuf$,48,GetString( sid_error )
  2880.      End If
  2881. End Sub
  2882. P    P    l
  2883. ~@    #J
  2884. New Button
  2885. Need a newer version of Notes to execute this button.
  2886.     0S0E
  2887.     Do Not Trust This Certificate  
  2888.     You can choose whether or not to mark this certificate as a trusted root.
  2889. HideSiteCert
  2890. CertIsDel
  2891.     6S7S10S11S12S
  2892.     Delete Certificate
  2893. '++LotusScript Development Environment:2:5:(Options):0:74
  2894. Use "Utils"
  2895. '++LotusScript Development Environment:2:5:(Forward):0:1
  2896. Declare Function FixFileName( fn As String ) As String
  2897. Declare Sub Click(Source As Button)
  2898. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2899. Declare Function ProcessSecurityCmd Lib "_dmsecadm" (Byval cmdName As String,_
  2900. Byval cmdArgs As String, Byval OutBuf As String, Byval szOutBuf As Integer) As Integer
  2901. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2902. Private Sub BindEvents(Byval Objectname_ As String)
  2903.      Static Source As BUTTON
  2904.      Set Source = Bind(Objectname_)
  2905.      On Event Click From Source Call Click
  2906. End Sub
  2907. '++LotusScript Development Environment:2:1:FixFileName:1:8
  2908. Function FixFileName( fn As String ) As String
  2909.      If (fn Like "*[:/\]*") Then
  2910.           FixFileName = fn
  2911.      Else
  2912.           Dim session As New NotesSession
  2913.           If IsDefined("UNIX") Then  
  2914.                FixFileName = session.GetEnvironmentString( "Directory", True ) & "/" & fn
  2915.           Else
  2916.                FixFileName = session.GetEnvironmentString( "Directory", True ) & "\" & fn
  2917.           End If
  2918.      End If
  2919. End Function
  2920. '++LotusScript Development Environment:2:2:Click:1:12
  2921. Sub Click(Source As Button)
  2922.      
  2923.      Dim workspace As New NotesUIWorkspace
  2924.      Dim uidoc As NotesUIDocument
  2925.      Set uidoc = workspace.CurrentDocument
  2926.      Dim doc As NotesDocument
  2927.      Dim db As NotesDatabase
  2928.      Dim view As NotesView
  2929.      Dim sess As New NotesSession
  2930.      
  2931.      Dim Buf As String * 500
  2932.      Dim CmdArgs As String
  2933.      
  2934.      Set doc = uidoc.Document
  2935.      
  2936.      EntryLabel$ = doc.EntryLabel( 0 )
  2937.      KeyFileName$ = FixFileName( doc.TempKeyFileName( 0 ) )
  2938.      Password$ = Inputbox$( GetString( sid_InputPasswordPrompt ) & KeyFileName$, GetString( sid_InputPasswordTitle ) )
  2939.      
  2940.      CmdArgs = ""
  2941.      
  2942.      If EntryLabel$ > "" Then  
  2943.           CmdArgs = CmdArgs & "EntryLabel=" & EntryLabel$ & ";"
  2944.      Else
  2945.           Messagebox GetString( sid_NoLabelErr )
  2946.           Exit Sub
  2947.      End If
  2948.      
  2949.      If KeyFileName$ > "" Then 
  2950.           CmdArgs = CmdArgs & "KeyFile=" & KeyFileName$ & ";"
  2951.      Else
  2952.           Messagebox GetString( sid_NoFileErr )
  2953.           Exit Sub
  2954.      End If
  2955.      
  2956.      If Password$ > "" Then
  2957.           CmdArgs = CmdArgs & "Password=" & Password$
  2958.      Else
  2959.           Messagebox GetString( sid_NoPasswordErr )
  2960.           Exit Sub
  2961.      End If
  2962.      
  2963.      rc%  = ProcessSecurityCmd("DeleteEntry",CmdArgs,Buf,500)
  2964.      
  2965.      TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)
  2966.      If rc% = 0 Then 
  2967.           doc.EntryLabel = GetString( sid_CertificateDeletedTag )
  2968.           doc.CertIsDel = "1"
  2969.           Call doc.save(True, True)
  2970.           Set db = sess.CurrentDatabase
  2971.           Set view = db.GetView(GetString( sid_KeyRingViewName ) )
  2972.           Call workspace.viewrefresh
  2973.           Call uidoc.close
  2974.      Else
  2975.           Messagebox TrimBuf$,48,GetString( sid_error )
  2976.      End If
  2977.      
  2978. End Sub
  2979. P    P    l
  2980. ~@    #J
  2981. New Button
  2982. Need a newer version of Notes to execute this button.
  2983.     0S0E
  2984.     Delete Certificate
  2985.     You can delete this certificate from the key ring.
  2986.     Note:
  2987.      You cannot undo this operation.
  2988. O=Lotus Notes
  2989. O=Lotus Notes
  2990. PURSAFO
  2991. |.:#U
  2992. O=Lotus Notes
  2993. CN=Lotus Notes Template Development/O=Lotus Notes
  2994. PURSAFO
  2995. Fde!f^^
  2996. $TITLE
  2997. $Info
  2998. $WindowTitle
  2999. $$Script_O
  3000. $$ScriptName
  3001. $Body
  3002. Create Certificate Request
  3003. 5Courier New
  3004.  CertAdminCreateCertRequest
  3005. [CertAppDesigner]
  3006.     1S6S7S
  3007. TempCertView
  3008. SaveOptions
  3009. SubmitMethod
  3010.     0S0E
  3011.     Hidden - Certificate request in PKCS format:
  3012. PasteCert
  3013. PasteCert
  3014. Create Server Certificate Request
  3015.     A certificate is required for the public key in the key ring you created.  To obtain a certificate, you create a certificate request, and provide it to a Certificate Authority for signing.  Use this form to create the certificate request.  
  3016.     Note:
  3017.       Before proceeding you should read the documentation provided by the Certificate Authority you are using to see how they require the certificate request to be delivered.
  3018.     Key Ring Information
  3019.     Quick Help
  3020.     Key Ring File Name
  3021. CertAdminAppProfile
  3022. KeyFileName
  3023. CertAdminAppProfile
  3024. KeyFileName
  3025. keyfile.kyr
  3026.     8S9S11S18S
  3027. KeyRingFileName
  3028. Key ring file name is required{
  3029.     3S4S
  3030. KeyringFileNameName for the file that stores the server keys and certificates. Include path if file is not in the data directory.
  3031.     Key Ring Password
  3032. PasswordPassword for the key ring file (at least 6 alphanumeric characters recommended)
  3033.     Specify the name of the key ring that this certificate is for.  
  3034.     Note:
  3035.      The key ring contains the Distinguished Name information that will be included in the certificate request.
  3036.     Certificate Request Information
  3037.     Log Certificate Request
  3038. LogCertReqYes logs requests in the application; No does not log requests
  3039. Yes | 1No | 0
  3040.     Log certificate requests for future reference.  
  3041.     Note:
  3042.      Choose "View Certificate Request Log" in the main menu page to see a listing of all logged requests.
  3043.     Method
  3044. SubmitMethod
  3045. Paste into form on CA's site | 0Send to CA by e-mail | 1
  3046.     Choose how to submit the certificate request to the Certificate Authority. 
  3047.     Note:
  3048.      The "Paste" method is recommended if it is supported by the Certificate Authority you are using.
  3049. SubmitMethod
  3050.     1S2S
  3051.     CA's E-Mail Address
  3052. CAEmailAddressE-mail address for the CA, including any additional Internet addressing requirements at your organization
  3053.     Your Name
  3054. RequestorNameName the CA can use to contact you
  3055.     Your E-Mail Address
  3056. RequestorEmailE-mail address the CA can use to contact you
  3057.     Your Phone Number
  3058. RequestorPhonePhone number the CA can use to contact you
  3059.     Your Comments
  3060. RequestorCommentsAny additional comments that you want to send to the CA, or that are required by the CA
  3061.     E-Mail Requirements:
  3062.     - The CA's e-mail address is required to send the certificate request by e-mail. 
  3063.     - The information about you is needed in case the CA needs to contact you.
  3064. '++LotusScript Development Environment:2:5:(Options):0:74
  3065. Use "Utils"
  3066. '++LotusScript Development Environment:2:5:(Forward):0:1
  3067. Declare Sub Click(Source As Button) 'resourced for international
  3068. '++LotusScript Development Environment:2:5:(Declarations):0:10
  3069. Declare Function ProcessSecurityCmd Lib "_dmsecadm" (Byval cmdName As String,_
  3070. Byval cmdArgs As String, Byval OutBuf As String, Byval szOutBuf As Integer) As Integer
  3071. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3072. Private Sub BindEvents(Byval Objectname_ As String)
  3073.      Static Source As BUTTON
  3074.      Set Source = Bind(Objectname_)
  3075.      On Event Click From Source Call Click
  3076. End Sub
  3077. '++LotusScript Development Environment:2:2:Click:1:12
  3078. Sub Click(Source As Button) 'resourced for international
  3079.      Dim wsp As New notesuiworkspace
  3080.      Dim uidoc As notesuidocument
  3081.      Set uidoc = wsp.CurrentDocument
  3082.      Dim doc As notesdocument
  3083.      Dim Buf As String * 500
  3084.      Dim CmdArgs As String
  3085.      Dim item As NotesItem
  3086.      Dim linklist As Variant
  3087.      Dim db As NotesDatabase
  3088.      Dim sess As New NotesSession
  3089.      Set db = sess.CurrentDatabase
  3090.      Dim LogDoc As NotesDocument
  3091.      Dim MailDoc As NotesDocument
  3092.      Dim LogCertItem As NotesItem
  3093.      Dim LogViewItem As NotesItem
  3094.      Dim MailCertItem As NotesItem
  3095.      
  3096.      filename$ = FixFileName("~certmp.tmp")
  3097.      
  3098.      Call uidoc.Save
  3099.      Set doc = uidoc.Document
  3100.      
  3101.      KeyRingFileName$ = FixFileName(doc.KeyRingFileName(0))
  3102.      SubmitMethod$ = doc.SubmitMethod( 0 )
  3103.      
  3104.      If SubmitMethod$ = "1" Then
  3105.           CAEmail$ = doc.CAEmailAddress( 0 )
  3106.           RequestorName$ = doc.RequestorName( 0 )
  3107.           RequestorEmail$ = doc.RequestorEmail( 0 )
  3108.           RequestorPhone$ = doc.RequestorPhone( 0 )
  3109.           RequestorComments$ = doc.RequestorComments( 0 )
  3110.      End If
  3111.      
  3112.      Password$ = doc.Password(0)
  3113.      
  3114.      Call uidoc.FieldClear( "Password" )
  3115.      Call uidoc.save
  3116.      
  3117.      CmdArgs = ""
  3118.      If KeyRingFileName$ > "" Then CmdArgs = CmdArgs & "KeyFile=" & KeyRingFileName$ & ";"
  3119.      CmdArgs = CmdArgs & "KeyName=" & GetString( sid_KeyPair ) & ";"
  3120.      If Password$ > "" Then CmdArgs = CmdArgs & "Password=" & Password$ & ";"
  3121.      CmdArgs = CmdArgs & "CertReqFile=" & filename$ & ";UsePKCS;"
  3122.      Call NukeIt(filename$)
  3123.      
  3124.      rc%  = ProcessSecurityCmd("CreateCertReq",CmdArgs,Buf,500)
  3125.      TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)
  3126.      
  3127.      If rc% = 0 Then 
  3128.           linklist = ReadFromFile( filename$ )
  3129.           Call NukeIt(filename$)
  3130.           Call uidoc.FieldClear( "PasteCert" )
  3131.           Call uidoc.save
  3132.           
  3133.           Set item = doc.GetFirstItem( "PasteCert" )
  3134.           Forall k In linklist
  3135.                Call item.AppendToTextList( k )
  3136.           End Forall
  3137.           
  3138.           CertView = ViewCert( linklist, "1" )
  3139.           Call uidoc.FieldClear( "TempCertView" )
  3140.           Call uidoc.save
  3141.           Set item = doc.GetFirstItem( "TempCertView" )
  3142.           Forall k In CertView
  3143.                Call item.AppendToTextList( k )
  3144.           End Forall
  3145.           
  3146.           If SubmitMethod$ = "0" Then
  3147.                flag% = wsp.DialogBox("DlgConfirmCreateCertReqByClipboard",True,True,True,False,False,False,GetString( sid_CertReqCreate ))
  3148.           Else 
  3149.                Set MailDoc = New NotesDocument(db)
  3150.                MailDoc.form = "CertReqEmail"
  3151.                MailDoc.SendTo = CAEMail$
  3152.                MailDoc.Subject = GetString( sid_CertReqSubj )
  3153.                MailDoc.From = RequestorName$
  3154.                MailDoc.RequestorName = RequestorName$
  3155.                MailDoc.RequestorEmail = RequestorEmail$
  3156.                MailDoc.RequestorPhone = RequestorPhone$
  3157.                MailDoc.RequestorComments = RequestorComments$
  3158.                MailDoc.PKCSCertReq = ""
  3159.                Set MailCertItem = MailDoc.GetFirstItem( "PKCSCertReq" )
  3160.                Forall b In linklist
  3161.                     Call MailCertItem.AppendToTextList( b )
  3162.                End Forall
  3163.                Call MailDoc.Send(True)
  3164.                mailflag% = wsp.DialogBox("DlgConfirmCreateCertReqByEmail",True,True,True,False,False,False,GetString( sid_CertReqCreateMail ))
  3165.           End If
  3166.           
  3167.           If doc.LogCertReq(0) = "1" Then
  3168.                Set LogDoc = New NotesDocument(db)
  3169.                Logdoc.form = "CertReqLogEntry"
  3170.                If SubmitMethod$ = "0" Then
  3171.                     LogDoc.SubmitMethod = "0"
  3172.                Else
  3173.                     LogDoc.SubmitMethod = "1"
  3174.                End If
  3175.                LogDoc.TimeStamp = Date() & " " & Time() 
  3176.                LogDoc.KeyringFileName = KeyRingFileName$
  3177.                LogDoc.CAEMailAddress = CAEMail$
  3178.                LogDoc.RequestorName = RequestorName$
  3179.                LogDoc.RequestorEmail = RequestorEmail$
  3180.                LogDoc.RequestorPhone = RequestorPhone$
  3181.                LogDoc.RequestorComments = RequestorComments$
  3182.                LogDoc.PKCSCertReq = ""
  3183.                Set LogCertItem = LogDoc.GetFirstItem( "PKCSCertReq" )
  3184.                Forall j In linklist
  3185.                     Call LogCertItem.AppendToTextList( j )
  3186.                End Forall
  3187.                LogDoc.DecodeCert = ""
  3188.                Set LogViewItem = LogDoc.GetFirstItem( "DecodeCert" )
  3189.                Forall a In CertView
  3190.                     Call LogViewItem.AppendToTextList( a )
  3191.                End Forall
  3192.                Call LogDoc.save( False, False )
  3193.           End If
  3194.           
  3195.           Call uidoc.save
  3196.           Call uidoc.close
  3197.           
  3198.      Else
  3199.           Messagebox TrimBuf$,48,"Error"
  3200.      End If          
  3201.      
  3202. End Sub
  3203. h    h    `
  3204. Q@    J0    
  3205. Q\    JL    
  3206. Qx    Jh    
  3207. Q@    J0    
  3208. Q\    JL    
  3209. Qx    Jh    
  3210. New Button
  3211. Need a newer version of Notes to execute this button.
  3212.     0S0E
  3213.     Create Certificate Request
  3214. O=Lotus Notes
  3215. O=Lotus Notes
  3216. PURSAFO
  3217. |.:#U
  3218. O=Lotus Notes
  3219. CN=Lotus Notes Template Development/O=Lotus Notes
  3220. PURSAFO
  3221. Fde!f^^
  3222. $TITLE
  3223. $Info
  3224. $WindowTitle
  3225. $$Script_O
  3226. $$ScriptName
  3227. $Body
  3228. Certificate Request Log Entry
  3229. 5Courier New
  3230.  CertReqLogEntry
  3231.     ---------------------------------------------------------------------------------------------
  3232.     Hidden Fields:
  3233. SubmitMethod
  3234. Paste into form on CA's site | 0Send to CA by e-mail | 1
  3235.      By email or my clipboard.
  3236.     --------------------------------------------------------------------------------------------------------------------
  3237. Certificate Request Log Entry
  3238.     Certificate Request Information
  3239.     Certificate Request Type
  3240. SubmitMethod
  3241.     1S2S
  3242.     E-Mail
  3243. SubmitMethod
  3244.     1S2S
  3245.     Clipboard
  3246.     Date & Time Created
  3247. TimeStamp
  3248.     Key Ring
  3249. KeyringFileName
  3250.     Distinguished Name
  3251. DecodeCert
  3252.     E-Mail Information
  3253.     This request has been sent to
  3254. CAEmailAddress
  3255.     You submitted the following additional information in the email:
  3256.     Your Name
  3257. RequestorName
  3258.     Your E-Mail Address
  3259. RequestorEmail
  3260.     Your Phone Number
  3261. RequestorPhone
  3262.     Your Comments
  3263. RequestorComments
  3264.     Certifica
  3265.      Request in PKCS Format
  3266. PKCSCertReq
  3267. O=Lotus Notes
  3268. O=Lotus Notes
  3269. PURSAFO
  3270. |.:#U
  3271. O=Lotus Notes
  3272. CN=Lotus Notes Template Development/O=Lotus Notes
  3273. PURSAFO
  3274. Fde!f^^
  3275. $TITLE
  3276. $Info
  3277. $WindowTitle
  3278. $$ScriptName
  3279. $Body
  3280. Default
  3281. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################
  3282. Default|Default
  3283. TimeStamp
  3284. T0S1V
  3285.     1S4S
  3286. SubmitMethod
  3287. Email
  3288. Clipboard
  3289.     1S3S4S6S8S
  3290. $9$7$Conflict$REF
  3291. CertReqLogEntry
  3292. CertReqLogEntry
  3293.     3S4S6S7S9S10S1
  3294. $9Time0
  3295. TimeStamp
  3296. T0S1V
  3297.     1S4S
  3298. $7Request Type^
  3299. SubmitMethod
  3300. Email
  3301. Clipboard
  3302.     1S3S4S6S8S
  3303. CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################################
  3304. badtrip.iris.commassCertAdminCreateKeyringWithSelfCertQuickstart - for Trying Out SSLCreate Keyring With Self-Certified Certificate1caca.kyrbourque.iris.comirisinternoteswestfordmassus
  3305. CN=Scott Davidson/O=IrisCN=Andrew Wharton/O=IrisCN=Michael Decoteau/O=IrisCN=Andrew Wharton/O=IrisCN=Michael Decoteau/O=IrisL
  3306. ##########################################
  3307. ##########################################################
  3308. ##########################################################
  3309. ##########################################################
  3310. ##########################################################
  3311. ##########################################################
  3312. ##########################################################
  3313. ##########################################################
  3314. ##########################################################
  3315. ##########################################################
  3316. ##########################################################
  3317. ##########################################################
  3318. ##########################################################
  3319. ##########################################################
  3320. ##########################################################
  3321. ##########################################################
  3322. ##########################################################
  3323. ##########################################################
  3324. ##########################################################
  3325. ##########################################################
  3326. ##########################################################
  3327. ##########################################################
  3328. ##########################################################
  3329. ##########################################################
  3330. Default
  3331. Default Form
  3332. Provided to support Internationalization of this application.  Not used in any documents or views.
  3333. O=Lotus Notes
  3334. O=Lotus Notes
  3335. PURSAFO
  3336. |.:#U
  3337. O=Lotus Notes
  3338. CN=Lotus Notes Template Development/O=Lotus Notes
  3339. PURSAFO
  3340. Fde!f^^
  3341. $TITLE
  3342. $Info
  3343. $$ScriptName
  3344. $Body
  3345. CertReqLogEntry|CertReqLogEntry
  3346. Categori_ze
  3347. _Edit Document
  3348. Send Docu_ment
  3349. _Forward
  3350. _Move To Folder...
  3351. _Remove From Folder_
  3352. Main MenuA@
  3353. CertAdminFullScreen
  3354.     1S4S6S
  3355. O=Lotus Notes
  3356. O=Lotus Notes
  3357. PURSAFO
  3358. |.:#U
  3359. O=Lotus Notes
  3360. CN=Lotus Notes Template Development/O=Lotus Notes
  3361. PURSAFO
  3362. Fde!f^^
  3363. $TITLE
  3364. $Index
  3365. $Formula
  3366. $FormulaClass
  3367. $SelQuery
  3368. $ViewFormat
  3369. $Comment
  3370. $ACTIONS
  3371. ed$UpdatedBy$ACLDigest$Signature$DesignVersion$Version$Formula$FormulaClass$Collation$ScriptLib$ScriptLib_O$TITLE$Flags$PublicAccess$Fonts$Info$Body$DefaultWebNavigator$DefaultNavigatorIconBitmap$FlagsNoRefresh$ViewMapDataset$ViewMapLayout$NavImagemap$Index$SelQuery$ViewFormat$Comment$ACTIONS$SCRIPTOBJ_6$SCRIPTOBJ_7$SCRIPTOBJ_8$ViewGlobalScript_O$WindowTitle$$Script_O$$ScriptNameOrganizationOrganizationalUnitTempCertViewCommonNameStateProvinceLocalityStartDateEndDateCountryPasteCert$FormLinksSendToFromSubjectRequestorNameRequestorEmailRequestorPhoneRequestorCommentsPKCSCertReq$Collation1$Collation2$Collation3$Collation4$NoBackgroundOverride$SubFormsSubListFieldIssListFieldStartDateFieldEndDateFieldTrustedRootFieldSaveOptionsKeyRingFileNamePasswordCertificateNameCertificateSourceCertificateFileNameCertificateTextKeySizeKeyFileNameTempIsRootTempKeyFileNameCatagoriesHideSiteCertCertIsDelCompKeyFileNameEntryLabelSubjCommonNameIssCommonNameSubjOrganizationIssOrganizationSubjOrgUnitIssOrgUnitSubjCityIssCitySubjStateIssStateSubjCountryIssCountryCertStartDateCertEndDateLogCertReqSubmitMethodCAEmailAddressTimestampDecodeCertStateFORMCategoriesPrivateTitleDocOrderKeyNameServerName$Revisions$REF$Conflict
  3372. 08/20/97 03:53:13 PM Andrew Wharton/Iris updated OtherDomainServers
  3373. 08/20/97 03:53:01 PM Andrew Wharton/Iris updated OtherDomainServers
  3374. 08/20/97 03:52:53 PM Andrew Wharton/Iris updated LocalDomainServers
  3375. 08/20/97 03:27:44 PM Andrew Wharton/Iris updated [-Default-]
  3376. 08/20/97 03:27:10 PM Andrew Wharton/Iris updated OtherDomainServers
  3377. 08/20/97 03:27:06 PM Andrew Wharton/Iris added OtherDomainServers
  3378. 08/20/97 03:26:58 PM Andrew Wharton/Iris updated LocalDomainServers
  3379. 08/20/97 03:26:50 PM Andrew Wharton/Iris added LocalDomainServers
  3380. 08/20/97 03:26:32 PM Andrew Wharton/Iris updated -Default-
  3381. 08/20/97 01:44:49 PM Andrew Wharton/Iris updated [LocalDomainServers]
  3382. 08/20/97 01:44:40 PM Andrew Wharton/Iris updated -Default-
  3383. 08/20/97 01:44:00 PM Andrew Wharton/Iris updated [Anonymous]
  3384. 08/20/97 01:43:54 PM Andrew Wharton/Iris added [Anonymous]
  3385. 08/20/97 01:43:49 PM Andrew Wharton/Iris updated [OtherDomainServers]
  3386. 08/20/97 01:43:42 PM Andrew Wharton/Iris added [OtherDomainServers]
  3387. 08/20/97 01:43:32 PM Andrew Wharton/Iris updated [LocalDomainServers]
  3388. 08/20/97 01:43:21 PM Andrew Wharton/Iris added [LocalDomainServers]
  3389. 08/20/97 01:43:09 PM Andrew Wharton/Iris updated [-Default-]
  3390. 08/20/97 01:42:59 PM Andrew Wharton/Iris added [-Default-]
  3391. 08/13/97 11:18:22 AM Andrew Wharton/Iris deleted Andrew Wharton/Iris
  3392. -Default-
  3393. [-Default-]
  3394. [LocalDomainServers]
  3395. [OtherDomainServers]
  3396. [Anonymous]
  3397. LocalDomainServers
  3398. OtherDomainServers
  3399.